Velvet-Bird 01.12.2012 11:13 gay

Я пидор и трогал морфизмы
ana(F, A) →
case F(A) of
{left} →
[];
{right, {X, Y}} →
[X | ana(F, Y)]
end.

destruct([]) →
{left};
destruct([H | T]) →
{right, {H, [X || X ← T, X rem H > 0]}}.

sieve(N) →
ana(fun destruct/1, lists:seq(2,N)).

Recommended by: @rtsome
#tfttzh
re 4 comments !recommend ~bookmark Ssubscribe
1. Magic_Spells 01.12.2012 11:14 Navi

>ana(fun destruct
>ana destruct
Тут буквы не хватет.

#tfttzh/1
rereply
2. kurkuma 01.12.2012 11:14

#tfttzh/2
rereply
4. Velvet-Bird → rtsome /3 01.12.2012 12:53 gay

не хватает моей гомопидорской сраки

#tfttzh/4
rereply
5. generatorglukoff 01.12.2012 14:58

нассал в ротешник ОПу

#tfttzh/5
rereply
Do you really want to delete ?