diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2021-01-18 17:31:04 -0500 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2021-01-18 17:31:04 -0500 |
| commit | 4cfddf0f8585136d645fe7a34e7fc7ce7787b088 (patch) | |
| tree | 66afe0ed603cc3aaa834e433eb8e7204ac4b84a4 /challenge-059/stuart-little/haskell/ch-1.hs | |
| parent | eacd94671a7799bbb5d9dce6a3bd16ee57ee711b (diff) | |
| parent | 754e6dcd79dde5387229a23ae7eca35d70eac4a3 (diff) | |
| download | perlweeklychallenge-club-4cfddf0f8585136d645fe7a34e7fc7ce7787b088.tar.gz perlweeklychallenge-club-4cfddf0f8585136d645fe7a34e7fc7ce7787b088.tar.bz2 perlweeklychallenge-club-4cfddf0f8585136d645fe7a34e7fc7ce7787b088.zip | |
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club into master
Diffstat (limited to 'challenge-059/stuart-little/haskell/ch-1.hs')
| -rwxr-xr-x | challenge-059/stuart-little/haskell/ch-1.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-059/stuart-little/haskell/ch-1.hs b/challenge-059/stuart-little/haskell/ch-1.hs new file mode 100755 index 0000000000..c84128b8cd --- /dev/null +++ b/challenge-059/stuart-little/haskell/ch-1.hs @@ -0,0 +1,12 @@ +#!/usr/bin/env runghc + +-- run <script> <cutoff_nr> <space-separated list entries> + +import System.Environment (getArgs,) +import Control.Monad (liftM,) +import Data.List (partition,) +import Data.List.Utils (join,) + +main = do + (cut:rest) <- liftM (map (read::String->Int)) getArgs + putStrLn $ join " -> " $ map show $ uncurry (++) $ partition (cut >) rest |