Anonymous user
Execute HQ9+: Difference between revisions
m
→Impure approach
(Console output is made using monads) |
|||
Line 695:
| else = fail ("Unrecognized " ++ x)
where r = ref 0
be c = char.upper x == c
h () = writen "Hello, world!"
q () = writen src
| |||