ASCIIの画像形式の土地の地形を考慮して、湖の行き先を特定し、それらを埋めます。無限の雨量を想定します。

例

入力

         #               
         ##              
      # ####             
#    #########           
##  ###########          
## #############   ####  
## ##############  ##### 
################# #######
#########################
#########################

出力

         #               
         ##              
      #@####             
#@@@@#########           
##@@###########          
##@#############@@@####  
##@##############@@##### 
#################@#######
#########################
#########################

入力にはスペースと#マークのみが含まれます。各行は同じ長さになります。出力は#、水が溜まるスペースが@マークで満たされた同一パターンでなければなりません。

一番下の入力行は常にすべて＃マークになります。土地に穴や張り出しはありません。最短のコードが優先されます。

sed -r、27 24（27あり-r）

24（27）：

:;s/(#|@) ( *#)/\1@\2/;t

27（30）：

:e;s/([#@]) ( *#)/\1@\2/;te

2つのperlソリューションの良い方と競合する

Perl、25

s/# +#/$_=$&;y| |@|;$_/ge

Perl（> = v5.9.5）、24文字

で実行perl -p：

1while s/#.*\K (?=\S)/@/

これには、Perl 5.9.5以降で特別なエスケープを使用する必要があり\Kます。

Windows PowerShellの、36 74 138

$input-replace'(?<!^ *) (?! *$)','@'

網膜、10バイト

網膜は、この課題よりも（ずっと）新しいです。しかし、この解決策はあまりにもきちんとしていて、投稿することはできません。

T` `@`#.*#

オンラインでお試しください。

これは単にスペースを@に置き換える音訳段階ですが、操作はの一致#.*#、つまり両側が土地に囲まれている文字に制限されています。

Ruby 1.8、30文字

#!ruby -p
gsub(/# +#/){$&.tr" ","@"}

Ruby 1.9（1.9.2p0および1.9.2p204でテスト済み）でこれが機能しない理由を誰かが知っている場合は、ドキュメントでは機能するはずだと言われていますが、教えてください！

Python、95 92バイト

for s in S.split('\n'):b=s.find('#');e=s.rfind('#');print s[:b]+s[b:e].replace(' ','@')+s[e:]

05AB1E、17 16 バイト

|εγć?D¨ð'@:sθJJ,

オンラインでお試しください。

説明：

|            # Take all input-lines as list
 ε           # For each line:
  γ          #  Split the line into chunks of consecutive equal characters
             #   i.e. " ##   # " → [' ','##','   ','#',' ']
   ć         #  Split into head and the rest of the list
             #   i.e. [' ','##','   ','#',' '] → ['##','   ','#',' '] and ' '
    ?        #  Print this head
   D         #  Duplicate the rest of the list
    ¨        #  Remove the last element
             #   i.e. ['##','   ','#',' '] → ['##','   ','#']
     ð'@:    #  Replace every space with a "@"
             #   i.e. ['##','   ','#'] → ['##','@@@','#']
     sθ      #  Swap so the duplicated list is at the top, and take the last item as is
             #   i.e. ['##','   ','#',' '] → ' '
         JJ  #  Join the lists and individual items in the list together to a single string
             #   i.e. ['##','@@@','#'] and ' ' → "##@@@# "
           , #  Print with trailing new-line

Javascript、107バイト

var f=function(x){return x.replace(/# +#/g, function(x){return "#"+new Array(x.length-1).join("@")+"#";})};

ゴルフをしていない：

var f = function(x) {
    return x.replace(/# +#/g, function(x){
        return "#" + new Array(x.length - 1).join("@") + "#";
    })
};

Python、108 106 92バイト

import re
n=1
while n: S,n=re.subn('# +#',lambda m:'#'+'@'*len(m.group(0)[2:])+'#',S)
print S

ゼリー、15バイト

Ỵ”@ẹ”#ṂrṀḟƲ$¦€Y

オンラインでお試しください！

ピップ、15バイト

aR:`#.*#`_TRs'@

コマンドライン引数を介して入力を複数行の文字列として受け取ります：オンラインで試してください！（あるいは、-rnフラグを指定し、最初のフラグをに変更するaとg、stdin経由で入力できます：オンラインで試してみてください！）

Retinaの回答と同じ考え：正規表現のすべての一致を、一致する#.*#スペースを音訳した結果に置き換え@ます。Pipは、純粋な正規表現の問題に対するRetinaの簡潔さに匹敵することはできません。