Size: a a a
А⚙
А⚙
AZ
AZ
DF
DF
Т8
DF
А⚙
λ
λ
λ [9]: let
... next i = i * (i + 2)
... genIs init = takeWhile (< 300)
... $ init : map next (genIs init)
... in for (genIs 5) print
Out [9]:
5
35
λ
takeWhile _ [] = []
takeWhile p (x:xs)
| p x = x : takeWhile p xs
| otherwise = []
С
AZ
AZ
import Data.Foldable
main = let
next i = i * (i + 2)
is = 5 : map next is
xs = (subtract 1) <$> is
in traverse_ print $ takeWhile (< 300) xsAZ
λ
takeWhile _ [] = []
takeWhile p (x : xs) =
if p x
then x : takeWhile p xs
else []λ
import Data.Foldable
main = let
next i = i * (i + 2)
is = 5 : map next is
xs = (subtract 1) <$> is
in traverse_ print $ takeWhile (< 300) xs(print . subtract 1)AZ
А⚙