Un programa escrito en Haskell, que imprime un programa en Perl, que imprime…

Un progama escrito en Haskell, que al ejecutarse imprime un programa en Perl, que al ejecutarse imprime un programa en Python, que al ejecutarse imprime un programa en Ruby, que al ejecutarse imprime un programa en C, que al ejecutarse imprime un programa en Java, que al ejecutarse imprime el programa original. Ya la explicacion es suficiente para que te explote la cabeza.

Sin duda un quine (Programas que se imprimen asi mismos en la salida, llamados asi en honor al filosofo Willard Van Orman Quine) es bastante curioso

view plaincopy to clipboardprint?

1. import Data.List  
2.   
3. langs = [Haskell, Perl, Python, Ruby, C, Java]  
4.   
5. data Languages = Haskell | Ruby | Perl | C | Python | Java  
6.   
7. sequenceFromString Haskell s = "map toEnum[" ++ (intercalate "," $  
8.     map (\c -> show (fromEnum c)) s) ++ "]"  
9. sequenceFromString Perl s    = (intercalate "," $  
10.     map (\c -> "chr(" ++ show (fromEnum c) ++ ")") s)  
11. sequenceFromString Python s  = (intercalate "+" $  
12.     map (\c -> "chr(" ++ show (fromEnum c) ++ ")") s)  
13. sequenceFromString Ruby s    = (intercalate "+" $  
14.     map (\c -> show (fromEnum c) ++ ".chr") s)  
15. sequenceFromString C s       = concatMap  
16.     (\c -> "putchar(" ++ show (fromEnum c) ++ ");") s  
17. sequenceFromString Java s    = concatMap  
18.     (\c -> "o.write(" ++ show (fromEnum c) ++ ");") s  
19.   
20. paramList' Haskell = intercalate " " . map (\n -> "a" ++ show n)  
21. paramList' C       = intercalate "," . map (\n -> "char *a" ++ show n)  
22. paramList' Python  = intercalate "," . map (\n -> "a" ++ show n)  
23. paramList' Ruby    = intercalate "," . map (\n -> "a" ++ show n)  
24. paramList' Java    = intercalate "," . map (\n -> "String a" ++ show n)  
25.   
26. paramList Perl    _ = ""  
27. paramList lang n = paramList' lang [0..n-1]  
28.   
29. driver l args = defn l ++ intercalate (divider l) args ++ endDefn l  
30.   
31. divider C       = "\",\""  
32. divider Perl    = "','"  
33. divider Ruby    = "\",\""  
34. divider Python  = "\",\""  
35. divider Haskell = "\" \""  
36. divider Java    = "\",\""  
37.   
38. defn C       = "main(){q(\""  
39. defn Perl    = "&q('"  
40. defn Python  = "q(\""  
41. defn Ruby    = "q(\""  
42. defn Haskell = "main=q \""  
43. defn Java    = "public static void main(String[]args){q(\""  
44.   
45. endDefn C       = "\");}"  
46. endDefn Perl    = "')"  
47. endDefn Python  = "\")"  
48. endDefn Ruby    = "\")"  
49. endDefn Haskell = "\""  
50. endDefn Java    = "\");}}"  
51.   
52. arg Haskell n = "a" ++ show n  
53. arg Perl n    = "$_[" ++ show n ++ "]"  
54. arg C n       = "printf(a" ++ show n ++ ");"  
55. arg Python n  = "a" ++ show n  
56. arg Ruby n    = "a" ++ show n  
57. arg Java n    = "o.print(a" ++ show n ++ ");"  
58.   
59. argDivide Haskell l = "++" ++ sequenceFromString Haskell (divider l) ++ "++"  
60. argDivide Perl l    = ","    ++ sequenceFromString Perl (divider l) ++ ","  
61. argDivide C l       = sequenceFromString C (divider l)  
62. argDivide Python l  = "+" ++ sequenceFromString Python (divider l) ++ "+"  
63. argDivide Ruby l    = "+" ++ sequenceFromString Ruby (divider l) ++ "+"  
64. argDivide Java l    = sequenceFromString Java (divider l)  
65.   
66. argList lang1 lang2 n = intercalate (argDivide lang1 lang2) $  
67.     map (arg lang1) ([1..n-1] ++ [0])  
68.   
69. fromTo Haskell l n = "q " ++ paramList Haskell n ++ "=putStrLn$a0++" ++  
70.     sequenceFromString Haskell ("\n" ++ defn l) ++ "++" ++  
71.     argList Haskell l n ++ "++" ++ sequenceFromString Haskell (endDefn l)  
72. fromTo Perl    l n = "sub q {" ++ "print $_[0]," ++  
73.     sequenceFromString Perl ("\n" ++ defn l) ++ "," ++ argList Perl l n ++ "," ++  
74.     sequenceFromString Perl (endDefn l ++ "\n") ++ "}"  
75. fromTo Python  l n = "def q(" ++ paramList Python n ++  
76.     "): print a0+" ++ sequenceFromString Python ("\n" ++ defn l) ++  
77.     "+" ++ argList Python l n ++ "+" ++ sequenceFromString Python (endDefn l)  
78. fromTo Ruby    l n = "def q(" ++ paramList Ruby n ++  
79.     ") print a0+" ++ sequenceFromString Ruby ("\n" ++ defn l) ++  
80.     "+" ++ argList Ruby l n ++ "+" ++ sequenceFromString Ruby (endDefn l ++ "\n") ++ " end"  
81. fromTo C       l n = "q(" ++ paramList C n ++ "){" ++ "printf(a0);" ++  
82.     sequenceFromString C ("\n" ++ defn l) ++ argList C l n ++  
83.     sequenceFromString C (endDefn l ++ "\n") ++ "}"  
84. fromTo Java    l n = "public class quine{public static void q(" ++  
85.     paramList Java n ++ "){java.io.PrintStream o=System.out;o.print(a0);" ++  
86.     sequenceFromString Java ("\n" ++ defn l) ++ argList Java l n ++  
87.     sequenceFromString Java (endDefn l ++ "\n") ++ "}"  
88.   
89. main = do  
90.     let n = length langs  
91.     let langs' = cycle langs  
92.     putStrLn $ fromTo (head langs') (head (tail langs')) n  
93.     putStrLn $ driver (head langs') $ zipWith (\lang1 lang2 -> fromTo lang1 lang2 n)  
94.         (take n (tail langs')) (tail (tail langs'))  

import Data.List



langs = [Haskell, Perl, Python, Ruby, C, Java]



data Languages = Haskell | Ruby | Perl | C | Python | Java



sequenceFromString Haskell s = "map toEnum[" ++ (intercalate "," $

    map (\c -> show (fromEnum c)) s) ++ "]"

sequenceFromString Perl s    = (intercalate "," $

    map (\c -> "chr(" ++ show (fromEnum c) ++ ")") s)

sequenceFromString Python s  = (intercalate "+" $

    map (\c -> "chr(" ++ show (fromEnum c) ++ ")") s)

sequenceFromString Ruby s    = (intercalate "+" $

    map (\c -> show (fromEnum c) ++ ".chr") s)

sequenceFromString C s       = concatMap

    (\c -> "putchar(" ++ show (fromEnum c) ++ ");") s

sequenceFromString Java s    = concatMap

    (\c -> "o.write(" ++ show (fromEnum c) ++ ");") s



paramList' Haskell = intercalate " " . map (\n -> "a" ++ show n)

paramList' C       = intercalate "," . map (\n -> "char *a" ++ show n)

paramList' Python  = intercalate "," . map (\n -> "a" ++ show n)

paramList' Ruby    = intercalate "," . map (\n -> "a" ++ show n)

paramList' Java    = intercalate "," . map (\n -> "String a" ++ show n)



paramList Perl    _ = ""

paramList lang n = paramList' lang [0..n-1]



driver l args = defn l ++ intercalate (divider l) args ++ endDefn l



divider C       = "\",\""

divider Perl    = "','"

divider Ruby    = "\",\""

divider Python  = "\",\""

divider Haskell = "\" \""

divider Java    = "\",\""



defn C       = "main(){q(\""

defn Perl    = "&q('"

defn Python  = "q(\""

defn Ruby    = "q(\""

defn Haskell = "main=q \""

defn Java    = "public static void main(String[]args){q(\""



endDefn C       = "\");}"

endDefn Perl    = "')"

endDefn Python  = "\")"

endDefn Ruby    = "\")"

endDefn Haskell = "\""

endDefn Java    = "\");}}"



arg Haskell n = "a" ++ show n

arg Perl n    = "$_[" ++ show n ++ "]"

arg C n       = "printf(a" ++ show n ++ ");"

arg Python n  = "a" ++ show n

arg Ruby n    = "a" ++ show n

arg Java n    = "o.print(a" ++ show n ++ ");"



argDivide Haskell l = "++" ++ sequenceFromString Haskell (divider l) ++ "++"

argDivide Perl l    = ","    ++ sequenceFromString Perl (divider l) ++ ","

argDivide C l       = sequenceFromString C (divider l)

argDivide Python l  = "+" ++ sequenceFromString Python (divider l) ++ "+"

argDivide Ruby l    = "+" ++ sequenceFromString Ruby (divider l) ++ "+"

argDivide Java l    = sequenceFromString Java (divider l)



argList lang1 lang2 n = intercalate (argDivide lang1 lang2) $

    map (arg lang1) ([1..n-1] ++ [0])



fromTo Haskell l n = "q " ++ paramList Haskell n ++ "=putStrLn$a0++" ++

    sequenceFromString Haskell ("\n" ++ defn l) ++ "++" ++

    argList Haskell l n ++ "++" ++ sequenceFromString Haskell (endDefn l)

fromTo Perl    l n = "sub q {" ++ "print $_[0]," ++

    sequenceFromString Perl ("\n" ++ defn l) ++ "," ++ argList Perl l n ++ "," ++

    sequenceFromString Perl (endDefn l ++ "\n") ++ "}"

fromTo Python  l n = "def q(" ++ paramList Python n ++

    "): print a0+" ++ sequenceFromString Python ("\n" ++ defn l) ++

    "+" ++ argList Python l n ++ "+" ++ sequenceFromString Python (endDefn l)

fromTo Ruby    l n = "def q(" ++ paramList Ruby n ++

    ") print a0+" ++ sequenceFromString Ruby ("\n" ++ defn l) ++

    "+" ++ argList Ruby l n ++ "+" ++ sequenceFromString Ruby (endDefn l ++ "\n") ++ " end"

fromTo C       l n = "q(" ++ paramList C n ++ "){" ++ "printf(a0);" ++

    sequenceFromString C ("\n" ++ defn l) ++ argList C l n ++

    sequenceFromString C (endDefn l ++ "\n") ++ "}"

fromTo Java    l n = "public class quine{public static void q(" ++

    paramList Java n ++ "){java.io.PrintStream o=System.out;o.print(a0);" ++

    sequenceFromString Java ("\n" ++ defn l) ++ argList Java l n ++

    sequenceFromString Java (endDefn l ++ "\n") ++ "}"



main = do

    let n = length langs

    let langs' = cycle langs

    putStrLn $ fromTo (head langs') (head (tail langs')) n

    putStrLn $ driver (head langs') $ zipWith (\lang1 lang2 -> fromTo lang1 lang2 n)

        (take n (tail langs')) (tail (tail langs'))

Vía Hacker News