Perl

alphabet only quine

も簡単。 s zz xor print lc q ys ZZy xor print xor print lc q yZy xor printz xor print lc q ys ZZy xor print xor print lc q yZy xor print

s XXchr length q YThisPerlCodeConvertsAnyPerlCodeIntY Xe xor s XXchr length q YThisPerlCodeConvertsAnyPerlCodeIntoAlphabetOnlyPerlCodeThisPerlCodeCon vertsAnyPerlCodeIntoAlphabetOnlyPerlCY Xe xor s XXchr length q YThisPerlC odeConvertsAnyP…

Symbolic Polyglot Quine

題字の通り。作ろうかなぁと思いつつ作ってなかったので作りました。http://shinh.skr.jp/obf/sym_poly_quine.txt一応ある程度サイズは気にして作りましたが、細かいゴルフとかは全然してません。 Perl がなんか知らんけど SEGV しやがるので eval の中でや…

Self Reference

http://d.hatena.ne.jp/TAKESAKO/20090716/1247750262via http://d.hatena.ne.jp/sugyan/20090717/1247842750を見て、なんか書いてみるかなぁと。下記3つのコードは一定の期間をおいて SEGV するコードなのですが、共通のテーマに基づいて書かれてます。 SEG…

Symbolic Polyglot

久々に優雅な時間を過ごしました。もう少し縮みますけど見た目を優先した面もあり。http://ja.doukaku.org/comment/7271/まめさんの偉業を見てから二大チューリング完全言語の共演を見たかったのでした。Symbolic Polyglot Quine とかもできるだろうけど大変…

正規表現の文字クラス

Perl は正規表現とか " ではさまれた文字列の中にある変数とか配列を展開してくれるんですが、これは明らかに正規表現の文字クラス ([abc] とか書くヤツ) とブツかるわけです。以下のコードは @a に 0-999 まで "x" っていう変数をつっこんでから s/$a[...]/…

Symbolic quine

Perl で記号だけ (ASCII が 32-126 で ~/\W/ なものと改行のみ) で Quine を書く努力をしていました。なんか最初は 300Byte 近くだったんだけどゴルフしてるうちに 103Byte まで。 ($;=<<'' #&-!!*!%>{(\$;=<<'' $; )=~(' _ ^-^,'^'"`[;[?@(\$;^\$^)})')+ )=…

Polyglot Quine

http://shinh.skr.jp/dat_dir/poly_quine.txt基本的には上記 4言語の Polyglot quine 。あとまぁ C と PHP でも Quine になる。あなごるだと m4 なんかもまぁ。 C++ が標準準拠してない気がするので気になるなら main に int をつけると良い。実行は以下みた…

組み込み関数を活用しよう

Perl 入門講座も三回目です 第一回: Hello, world! http://d.hatena.ne.jp/shinichiro_h/20061107#1162835826 第二回: コマンドラインオプション http://d.hatena.ne.jp/shinichiro_h/20070105#1168009205今回は Perl の組み込み関数を一部紹介します。 % pe…

perl -p

はいお役立ちの Perl 講座のコ〜ナ〜です。突然ですが perl -p オプションは便利ですよー。例えば前、 ABA さんのコードに使われている OpenGL の API のリストを作ろうと思ったんです。 egrep 'gl(u|[A-Z])' src/**/*.d | perl -pe 's/.*?:\s+//; s/\(.*//;…

JAPH

はてなブックマークで、 JAPH の方がいいんじゃ、というコメントをいただいてました。http://b.hatena.ne.jp/entry/http://d.hatena.ne.jp/shinichiro_h/20061107%231162835826それが何かよくわからなかったのですが、ぐぐったところわかりました。こういう …

Perl 記号ゴルフと Acme::EyeDrops

ここからが本題です。 Perl は頭がおかしいです。すごすぎる。この感動を伝えたいと思います。まず Perl の基本からです。 Hello world! を書きましょう。 ''=~('(?{'.('[[).[|`%,,/`[/[@$'^'+)@@/^(@@@@@,@),@').'! "})')えーと。このくらいわかりますよね…

なにかあれば下記メールアドレスへ。
shinichiro.hamaji _at_ gmail.com
shinichiro.h