Treat linefeed as whitespace.
Chris Pressey
5 years ago
23 | 23 |
slice' n (_:s) = slice' (n-1) s
|
24 | 24 |
|
25 | 25 |
ci " " = id
|
|
26 |
ci "\n" = id
|
26 | 27 |
ci "1" = \s -> push s $ Int 1
|
27 | 28 |
ci "$" = snd . pop
|
28 | 29 |
ci "#" = \s -> push s $ Int $ fromIntegral $ length s
|