codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
cond p f g x = if p x then f x else g x take' = flip $ foldr (\x f -> (cond (>0) ((x:).f.pred) (const []))) (const []) main = print $ take' 2 [1, 2, 3]
Private
[
?
]
Run code
Submit