diff options
| -rwxr-xr-x | challenge-041/stuart-little/haskell/ch-1.hs | 8 | ||||
| -rwxr-xr-x | challenge-041/stuart-little/haskell/ch-2.hs | 8 |
2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-041/stuart-little/haskell/ch-1.hs b/challenge-041/stuart-little/haskell/ch-1.hs new file mode 100755 index 0000000000..0d251cceed --- /dev/null +++ b/challenge-041/stuart-little/haskell/ch-1.hs @@ -0,0 +1,8 @@ +#!/usr/bin/env runghc + +-- run <script> + +import Data.Numbers.Primes (isPrime,primeFactors,) + +main = do + mapM_ print $ filter (isPrime.length.primeFactors) [1..50] diff --git a/challenge-041/stuart-little/haskell/ch-2.hs b/challenge-041/stuart-little/haskell/ch-2.hs new file mode 100755 index 0000000000..b3ddaaf4c2 --- /dev/null +++ b/challenge-041/stuart-little/haskell/ch-2.hs @@ -0,0 +1,8 @@ +#!/usr/bin/env runghc + +-- run <script> + +import Data.Function (fix,) + +main = do + mapM_ print $ take 20 $ fix (scanl (\x y -> x + y + 1) 1 . ((-1):)) |