AZ
Size: a a a
AZ
λ
p
let
init = 5
loop i = do
print $ i - 1
let nextI = i * (i + 2)
when (nextI < 300) $ loop nextI
in loop init
λ
AZ
Т8
AZ
AZ
AZ
Т8
let
init = 5
loop i = do
print $ i - 1
let nextI = i * (i + 2)
when (nextI < 300) $ loop nextI
in loop init
AZ
AZ
λ
when (nextI < 300) $ loop nextI
А⚙
Ok(())
SP
Т8
AZ
Т8
λ
let
next i = i * (i + 2)
genIs init = takeWhile (< 300)
$ init : map next (genIs init)
in for (genIs 5) print
вот чуть более интересный способ записать то же самое