AZ
Size: a a a
AZ
p
AZ
λ
AZ
А⚙
Result<T, !>А⚙
p
Result<T, !>λ
P i n f = product $ map f [i .. n]Т8
for (enumFromTo 1 10) printp
P i n f = product $ map f [i .. n]p
SP
p
p
Т8
AZ
А⚙
λ
let
init = 5
loop i = do
print $ i - 1
let nextI = i * (i + 2)
when (nextI < 300) $ loop nextI
in loop initТ8