[ create a new paste ] login | about

Link: http://codepad.org/YgIbU6HH    [ raw code | output | fork ]

Haskell, pasted on Aug 29:
1
2
3
4
q a b c = putStrLn $ b ++ [toEnum 10,'q','('] ++ show b ++ [','] ++ show c ++ [','] ++ show a ++ [')']  
main=q "q a b c = putStrLn $ b ++ [toEnum 10,'q','('] ++ show b ++ [','] ++ show c ++ [','] ++ show a ++ [')']"  
       "def q(a,b,c)rint b+chr(10)+'q('+repr(+','+repr(c)+','+repr(a)+')'"  
       "def e( return 34.chr+x+34.chr endef q(a,b,c) print b+10.chr+'main=q '+e(+' '+e(c)+' '+e(a)+' '+10.chr end"  


Output:
1
2
def q(a,b,c)rint b+chr(10)+'q('+repr(+','+repr(c)+','+repr(a)+')'
q("def q(a,b,c)rint b+chr(10)+'q('+repr(+','+repr(c)+','+repr(a)+')'","def e( return 34.chr+x+34.chr endef q(a,b,c) print b+10.chr+'main=q '+e(+' '+e(c)+' '+e(a)+' '+10.chr end","q a b c = putStrLn $ b ++ [toEnum 10,'q','('] ++ show b ++ [','] ++ show c ++ [','] ++ show a ++ [')']")


Create a new paste based on this one


Comments: