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) print
p
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