root/lang/haskell/misc/shutin.hs
@
125
| Revision 5, 104 bytes (checked in by ujihisa, 17 years ago) |
|---|
| Line | |
|---|---|
| 1 | main = (print . shutin) [1..20] |
| 2 | |
| 3 | shutin :: [a] -> [a] |
| 4 | shutin [] = [] |
| 5 | shutin (i:is) = i : reverse is |
Note: See TracBrowser
for help on using the browser.
