Haskell,
pasted
on Jul 8:
|
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): print b+chr(10)+'q('+repr(b)+','+repr(c)+','+repr(a)+')'" "def q(a,b,c) print b+10.chr+'main=q '+34.chr+b+34.chr+' '+34.chr+c+34.chr+' '+34.chr+a+34.chr+10.chr end"
|
Output:
|
def q(a,b,c): print b+chr(10)+'q('+repr(b)+','+repr(c)+','+repr(a)+')'
q("def q(a,b,c): print b+chr(10)+'q('+repr(b)+','+repr(c)+','+repr(a)+')'","def q(a,b,c) print b+10.chr+'main=q '+34.chr+b+34.chr+' '+34.chr+c+34.chr+' '+34.chr+a+34.chr+10.chr end","q a b c = putStrLn $ b ++ [toEnum 10,'q','('] ++ show b ++ [','] ++ show c ++ [','] ++ show a ++ [')']")
|
|