З огляду на топографію земель у форматі зображення ASCII, з’ясуйте, куди йдуть озера та заповнюйте їх. Припустіть нескінченну кількість дощу.

приклад

вхід

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

вихід

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

Вхід буде містити лише пробіли та #позначки. Кожен рядок буде однакової довжини. Вихід повинен бути ідентичним #малюнком з просторами, де б накопичувалася вода, заповнена @знаками.

У нижньому вхідному рядку завжди будуть усі # позначки. У землі не буде ні дірок, ні перекриттів. Найкоротший код виграє.

sed -r, 27 24 (27 с -r)

24 (27):

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

27 (30):

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

Конкурує з кращими двома рішеннями 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` `@`#.*#

Спробуйте в Інтернеті.

Це просто етап транслітерації, який замінює пробіли @, але операція обмежується відповідниками #.*#, тобто символами, які оточені землею з обох сторін.

Рубін 1,8, 30 символів

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

Якщо хтось має уявлення, чому це не працює в Ruby 1.9 (тестується з 1.9.2p0 та 1.9.2p204), хоча документація говорить, що це має працювати , дайте мені знати!

Пітон, 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("@") + "#";
    })
};

Пітон, 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: замініть кожну відповідність регулярного виразу #.*#результатом транслітерації пробілу на @матч. Піп не може зрівнятися з терміновістю Ретіни з чистою проблемою з регулярними виразками - але, зрештою, ви можете зв'язати з Джеллі.