blob: e287d2232a923fad9f677d7e016a3cf8602f7ad1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Main (main)
where
import Data.Char (digitToInt, lexLitChar, readLitChar)
main :: IO ()
main =
do putStrLn (show $ readLitChar "A")
putStrLn (show $ readLitChar "'A'")
putStrLn (show $ lexLitChar "A")
putStrLn (show $ lexLitChar "'A'")
putStrLn (show $ lexLitChar "\\243\\&1")
putStrLn (show $ lexLitChar "a\\&1")
putStrLn (show $ lexLitChar "a\\&\\&1")
putStrLn (show $ lexLitChar "a\\&\\&")
|
