root/lang/haskell/misc/shutin.hs @ 5

Revision 5, 104 bytes (checked in by ujihisa, 17 years ago)

lang: initial import and add sample
RevLine 
[5]1main = (print . shutin) [1..20]
2
3shutin :: [a] -> [a]
4shutin []     = []
5shutin (i:is) = i : reverse is
Note: See TracBrowser for help on using the browser.