Keisuke Nakano's Web Site - QuineHaskell Diff

  • Added parts are displayed like this.
  • Deleted parts are displayed like this.

l                =
                 [""
                ,"  "
               ," ];m"
              ,"ain=ma"
             ,"pM_ putS"
            ,"tr(\"l\":m"
           ,"ap(f\n  repl"
          ,"icate length)("
         ,"\"= \":\"[\\\"\\"
        ,"\"\":\n (map ((\","
       ,"\"++).show).tail)l)+"
      ,"+l  )\nf r g s=r(17-di"
     ,"v(g s)2)' '++s++\"\\n\" "
    ];main=mapM_ putStr("l":map(f
   replicate length)("= ":"[\"\"":
  (map ((","++).show).tail)l)++l  )
f r g s=r(17-div(g s)2)' '++s++"\n"