Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

ed reimplementation contest

Name: Anonymous 2009-09-07 11:18

Let's reimplement ed with modern languages!

10 INPUT

20 PRINT "?"

30 GOTO 10

Name: Anonymous 2009-09-07 12:11

import Control.Monad

main = do getLine >>= (\p -> when (p `compare` "q" /= EQ) $ putStrLn "?" >> main)

Newer Posts