Простий конкурс, натхненний цим питанням про stackoverflow :

Вам дається зображення поверхні, сфотографованої супутником. Зображення являє собою растрову карту, де вода позначена символом " .", а земля позначена символом " *". Групи сусідніх *родовищ утворюють острів. (Два ' *' є суміжними, якщо вони є горизонтальними, вертикальними або діагональними сусідами). Ваше завдання - надрукувати кількість островів у растровій карті.

Сингл *також вважається островом.

Зразок введення:

.........**
**......***
...........
...*.......
*........*.
*.........*

Вибірка зразка:

5

Winner - запис із найменшою кількістю байтів у коді.

Mathematica 188 185 170 115 130 46 48 символів

Пояснення

У попередніх версіях я робив графік позицій, що мають шахівницьку відстань 1 один від одного. GraphComponentsпотім було виявлено кількість островів, по одному на компонент.

Ця версія використовує MorphologicalComponentsдля пошуку та нумерації кластерів у масиві - регіони, де 1фізично суміжні. Оскільки графік зайвий, це призводить до величезної економії коду.

Код

Max@MorphologicalComponents[#/.{"."->0,"*"->1}]&

Приклад

Max@MorphologicalComponents[#/.{"."->0,"*"->1}]&[{{".", ".", ".", ".", ".", ".", ".", ".", ".", "*", "*"}, {"*", "*", ".", ".", ".", ".", ".", ".", "*", "*", "*"}, {".", ".", ".", ".", ".", ".", ".", ".", ".", ".", "."}, {".", ".", ".", "*", ".", ".", ".", ".", ".", ".", "."}, {"*", ".", ".", ".", ".", ".", ".", ".", ".", "*", "."}, {"*", ".", ".", ".", ".", ".", ".", ".", ".", ".", "*"}}]

5

Як це працює

Дані вводяться як масив; в Mathematica - це список списків.

У вхідному масиві дані перетворюються в 1's і 0' за допомогою заміни

/.{"."->0,"*"->1}

де /.є форма інфікування, за ReplaceAllякою слідують правила заміни. Це по суті перетворює масив у чорно-біле зображення. Все , що нам потрібно зробити , це застосувати функцію Image.

Image[{{".", ".", ".", ".", ".", ".", ".", ".", ".", "*", "*"}, {"*", "*", ".", ".", ".", ".", ".", ".", "*", "*", "*"}, {".", ".", ".", ".", ".", ".", ".", ".", ".", ".", "."}, {".", ".", ".", "*", ".", ".", ".", ".", ".", ".", "."}, {"*", ".", ".", ".", ".", ".", ".", ".", ".", "*", "."}, {"*", ".", ".", ".", ".", ".", ".", ".", ".", ".", "*"}} /. {"." -> 0, "*" -> 1}]

Білі квадрати відповідають клітинкам, що мають значення, 1.

На малюнку нижче показано кілька кроків, якими використовується підхід. Вхідна матриця містить лише 1's і 0' s. Вихідна матриця позначає кожен морфологічний кластер числом. (Я загорнув і вхідні, і вихідні матриці, MatrixFormщоб виділити їх двовимірну структуру.)

MorphologicalComponentsзамінює 1s цілим числом, що відповідає номеру кластера кожної комірки.

Max повертає найбільше число кластерів.

Відображення островів

Colorize пофарбує кожен острів унікально.

Рубін 1,9 (134 121 113 110)

Візьме карту на stdin або назву файлу на карті як перший аргумент командного рядка та друкує кількість островів для stdout. Використання базової рекурсивної заливки. Покращення вітаються як завжди!

c=0
gets$!
c+=1while(f=->i{9.times{|o|$_[i]=?.;f[o]if$_[o=i+(o/3-1)*(~/$/+1)+o%3-1]==?*&&o>0}if i})[~/\*/]
p c

Подібно розфарбувати Давид, ви також можете отримати його для відображення різних островів, змінюючи $_[i]=?.до $_[i]=c.to_sі p cдо puts$_, який дасть вам що - щось на зразок цього:

.........00
11......000
...........
...2.......
3........4.
3.........4

(принаймні, поки у вас не закінчується цифр!)

Деякі тестові випадки:

.........**
**......***
...........
...*.......
*........*.
*.........*

5

......*..**....*
**...*..***....*
....*..........*
...*.*.........*
*........***....
*.....*...***...
*.....*...*....*
****..........**
*.........*.....

9

*

1

****
****
....
****

2

**********
*........*
*.******.*
*.*....*.*
*.*.**.*.*
*.*.**.*.*
*.*....*.*
*.******.*
*........*
**********

3

C, 169 символів

Читає карту від stdin. Не пощастило вдосконалити рекурсивну функцію заливки, r(j)хоча, схоже, це могло бути.

c,g,x,w;char m[9999];r(j){if(m[j]==42)m[j]=c,r(j+1),r(j+w-1),r(j+w),r(j+w+1),c+=j==g;}main(){while((m[x++]=g=getchar())+1)w=g<11*!w?x:w;for(;g++<x;)r(g);printf("%i",c);}

Пітон 2, 223 203 байт

Дякую Крок Хен та Арнольду Палмеру за відгалуження 20 символів пробілів та непотрібні дужки!

s=input()
c=[(s.index(l),i)for l in s for i,v in enumerate(l)if'*'==v]
n=[set([d for d in c if-2<d[0]-v[0]<2and-2<d[1]-v[1]<2])for v in c]
f=lambda x,p=0:p if x&n[p]else f(x,p+1)
print len(set(map(f,n)))

Я вважав, що використання розуміння списку може зменшити кількість байтів, але це не забезпечило суттєвого покращення.

Спробуйте тут.

Я намагаюся обрізати його навколо російського списку (сусідів), але це не було успіхом. Можливо, хтось інший матиме якісь ідеї для цього розділу.

Perl 5 , 100 байт

98 байт коду + 2 байти для -p0прапорів.

/.*/;$@="@+"-1;$~="(.?.?.{$@})?";(s/X$~\*/X$1X/s||s/\*$~X/X$1X/s)&&redo;s/\*/X/&&++$\&&redo}{$\|=0

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

Адаптація (а точніше спрощення) моєї відповіді на виклик Скільки отворів? . Ви можете знайти пояснення того, як цей код працює в цій іншій відповіді (це пояснюється трохи довго, тому я вважаю за краще не повторювати цілі пояснення).

Python 2, 233 байт

Занадто довго, порівняно з іншими відповідями. Порт моєї відповіді на це питання .
Спробуйте в Інтернеті

A=input()
c=0
X=len(A[0])-1
Y=len(A)-1
def C(T):
 x,y=T
 if A[y][x]<'.':A[y][x]='.';map(C,zip([x]*3+[min(x+1,X)]*3+[max(x-1,0)]*3,[y,min(y+1,Y),max(y-1,0)]*3))
while'*'in sum(A,[]):i=sum(A,[]).index('*');c+=1;C((i%-~X,i/-~X))
print c

JavaScript, 158 байт

function f(s){w=s.search('\n');t=s.replace(RegExp('([*@])([^]{'+w+','+(w+2)+'})?(?!\\1)[*@]'),'@$2@');return t!=s?f(t):/\*/.test(s)?f(s.replace('*','@'))+1:0}

Неконкурентна відповідь ES6 (виклик після публікації мови) на 132 байти:

f=s=>s!=(s=s.replace(RegExp(`([*@])([^]{${w=s.search`
`},${w+2}})?(?!\\1)[*@]`),`@$2@`))?f(s):/\*/.test(s)?f(s.replace(`*`,`@`))+1:0

Порт моєї відповіді на скільки отворів? (так, я стрибаю на смузі, тепер, коли я бачив, як двоє інших людей переносять свої відповіді).

Python 2 , 225 байт

g=map(list,input())
q,w,t,r=len(g),len(g[0]),0,range
def l(i,j):
 if 0<=i<q and 0<=j<w and g[i][j]=='1':g[i][j]=0;l(i+1,j);l(i-1,j);l(i,j+1);l(i,j-1)
 return 1
print sum(l(i,j)if g[i][j]=='1'else 0 for j in r(w)for i in r(q))

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