<< 45/50 >>
First Last

Symbolic polyglot quine

文字列代入*2

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

実体は JS コードと Perl コード