Symbolic Polyglot

久々に優雅な時間を過ごしました。もう少し縮みますけど見た目を優先した面もあり。

http://ja.doukaku.org/comment/7271/

まめさんの偉業を見てから二大チューリング完全言語の共演を見たかったのでした。

Symbolic Polyglot Quine とかもできるだろうけど大変そうだなぁ。

Ruby の syntax highlight

$/=' ';%#;$/=~('(?{'.(',  =$  )'^'_@|_
@||').'$&`,'.('/-).+`&/-'^'__@@_@@@_').'<>})');"#;(___=->(_,*__){$.=/./=~_
$><<([*?`...$&][$.]&&[*$&...?{][$.]?[*?@..$&][~(/@./=~[*$/..?@]*''+_)]+$':_)
__[$.]&&___[*__]})[*[*$<]]#"

Perl の syntax highlight

$/=' ';%#;$/=~('(?{'.(',  =$  )'^'_@|_
@||').'$&`,'.('/-).+`&/-'^'__@@_@@@_').'<>})');"#;(___=->(_,*__){$.=/./=~_
$><<([*?`...$&][$.]&&[*$&...?{][$.]?[*?@..$&][~(/@./=~[*$/..?@]*''+_)]+$':_)
__[$.]&&___[*__]})[*[*$<]]#"