а

Size: a a a
а

а
AZ
filter (< 300) [1 ..] зависает let is = iterate (\i -> i*(i+2)) 5
xs = takeWhile (<300) $ subtract 1 <$> is
in traverse_ print xsλ
let is = iterate (\i -> i*(i+2)) 5
xs = takeWhile (<300) $ subtract 1 <$> is
in traverse_ print xsAZ
λ
do
i <- is
let x = i - 1
guard $ x < 300
pure xAZ
AZ
λ
V
Т8
V
V
Т8
V
V
С
Т8
V
V