Anonymous user
Execute HQ9+: Difference between revisions
→Standard approach
Line 245:
<lang ela>open Con
open Char
open Cell
let eval src = eval' src
Line 252 ⟶ 253:
| be '9' = n! $ eval' xs
| be '+' = p! $ eval' xs
| else = fail ("Unrecognized " ++
where ref =
et be c = upper x == c
et h () = writen "Hello, world!"
et q () = writen src
et p () =
et n () = bottles [99,98..1]
where bottles [] = ()
|