diff options
| author | Camil Staps | 2016-10-16 21:46:51 +0200 |
|---|---|---|
| committer | Camil Staps | 2016-10-16 21:59:27 +0200 |
| commit | 88bcec774b782319aa4ce32a39c101568d01925a (patch) | |
| tree | 0213a083eba76dd9ef177a781ce585e273490934 /examples/list.fusp | |
| parent | Usage message when no modules are given (diff) | |
examples
Diffstat (limited to 'examples/list.fusp')
| -rw-r--r-- | examples/list.fusp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/list.fusp b/examples/list.fusp index de3059e..b3f4ea5 100644 --- a/examples/list.fusp +++ b/examples/list.fusp @@ -29,3 +29,7 @@ repeat n x = [x:repeat (sub 1 n) x]; map f [] = []; map f [x:xs] = [f x:map f xs]; + +take _ [] = []; +take 0 _ = []; +take n [x:xs] = [x:take (sub 1 n) xs]; |