Perl6で記号Hello worldする - すぎゃーんメモ
一番簡単なHello worldです。 ::('!{.(?'~^'.~!)~'~^')^.^^'~^'?!^?('~^'??)!{')('!?}}~~(!^~{~))(.{~('~^'))?^?.).(?.}?)().!~'~^'~!.?}?~.^.{?!)~}!).'~^'}!!.~(}(!?}~{!}).(('~^')^(^.(.)~?!.()!})?)')普通に実行できると思います。 $ cat hello.pl6 ::('!{.(?'~^'.~!)~'~^')^.^^'~^'?!^?('~^'??)!{')('!?}}~~(!^~{~))(.{~('~^'))?^?.).(?.}?)().!~'~^'~!.?}?~.^.{?!)~}!).'~^'}!!.~(}(!?}~{!}).(('~^')^(^.(.)~?!.()!})?)') $ perl6 hello.pl6 Hello,
2010-07-10
s XXchr length q YThisPerlCodeConvertsAnyPerlCodeIntY Xe xor s XXchr length q YThisPerlCodeConvertsAnyPerlCodeIntoAlphabetOnlyPerlCodeThisPerlCodeCon vertsAnyPerlCodeIntoAlphabetOnlyPerlCY Xe xor s XXchr length q YThisPerlC odeConvertsAnyPerlCodeIntoAlphabetOnlyPerlCodeThisPerlCodeConvertsAnyPerl CodeIntoAlphaY Xe xor s XXchr length q YThisPerlCodeConvertsAnyPerlCodeIn toAlphabetOnlyPerlCodeThisPe
2009-07-19
http://d.hatena.ne.jp/TAKESAKO/20090716/1247750262 via http://d.hatena.ne.jp/sugyan/20090717/1247842750 を見て、なんか書いてみるかなぁと。下記3つのコードは一定の期間をおいて SEGV するコードなのですが、共通のテーマに基づいて書かれてます。 SEGV の理由は何でしょうか。 一個目。邪道。でもゴルフでたまに使えるんだよね。 ''=~('(?{'.('_/_ '^';@{:').'})')二個目。一番短いけどこの挙動は長い間知らなかったので結構わからん人多いんじゃないかな。 $_=~'(?{$_=~""})'三個目。読むのはそんなに難しくないけど、書くのは結構大変。新しく書こうと思ったけど結局使い回しでいいやという。 ($;=<<'' _(_@{**+(\$;=<<'' $; )=~(
記号でPolyglotプログラミング♪（RejectKaigi2009） | TAKESAKO @ Yet another Cybozu Labs
RubyKaigi2009の最終日に同じ場所で開催された別のイベント「RejectKaigi2009」にて 「はじめてのRuby1.9プログラミング」と題して、記号Polyglotプログラミングの話をしてきました。 3分という限られた時間でありましたが、貴重な発表の機会を与えてくださりありがとうございます。 取り急ぎプレゼンで披露した記号Polyglotのプログラムを公開しておきます。 ■ hello.pl （という名前ですが、Perlの他にRubyやJavaScriptでも実行できるプログラムです） "#{",$/*"}";%#=();$^_^=’?“;">)~${`&&@`{;:+`[[‘,$^_^=’/?")-=^{(=!".=.!,!)&&>’,$^_^=’`-+|{!?“*.((-+({:^(_^’,$^_=”^’+@$@&’^’^.@%@’.’$^_^"";’.$^_^"",’
Symbolic Polyglot - 兼雑記
久々に優雅な時間を過ごしました。もう少し縮みますけど見た目を優先した面もあり。 http://ja.doukaku.org/comment/7271/ まめさんの偉業を見てから二大チューリング完全言語の共演を見たかったのでした。 Symbolic Polyglot Quine とかもできるだろうけど大変そうだなぁ。 Ruby の syntax highlight $/=' ';%#;$/=~('(?{'.(', =$ )'^'_@|_ @||').'$&`,'.('/-).+`&/-'^'__@@_@@@_').'<>})');"#;(___=->(_,*__){$.=/./=~_ $><<([*?`...$&][$.]&&[*$&...?{][$.]?[*?@..$&][~(/@./=~[*$/..?@]*''+_)]+$':_) __[$.]&&___[*__]})[*[*$<]]#"
perl - Hello World! バトン : 404 Blog Not Found
2008年05月03日23:30 カテゴリ書評/画評/品評 perl - Hello World! バトン ったく、みんなして人使いが荒井由美。 【コラム】Hello Worldコレクション (6) Perl編 - 意外!?に多芸多才なスクリプト言語 | エンタープライズ | マイコミジャーナル はてなブックマーク - 【コラム】Hello Worldコレクション (6) Perl編 - 意外!?に多芸多才なスクリプト言語 | エンタープライズ | マイコミジャーナル というわけで、まずはリストの続き。 リストA Perl 5.10以降のsayを使う方法 use feature 'say'; say 'Hello, World!'; リストB Perl6::Sayで代用 use Perl6::Say; say 'Hello, World!'; リストC Pelr 5.10以降のIO::Ha
2008-04-11
itoa高速にするなら for(tmp=num;tmp>0;tmp /= 10) *p++; の処理は *p += log( num ) + 1; log(1) = 0 log(5) = 0.69897 log(10) = 1 log(50) = 1.69897 log(100) = 2 log(500) = 2.69897 log(1000) = 3 log(5000) = 3.69897 log(10000) = 4 log(50000) = 4.69897 log(100000) = 5 という感じです。 高速化するならこの辺りを物理演算ボードにまかすw もっと速いのは stdlib.h に定義されてる itoaですが。 行列 89, 93, 87, 88, 91, 87, 85, 90, 92, 91, 88, 90をプロツトする x <- c(89, 93, 87, 88, 91
404 Blog Not Found:紹介 - 一つのファイルでperl,javascript,HTMLそしてGIF
2007年11月05日23:30 カテゴリLightweight Languages 紹介 - 一つのファイルでperl,javascript,HTMLそしてGIF takesako['www']++; TAKESAKO @ Yet another Cybozu Labs: Real UNIX MAGAZINE Day ライトニングトーク 若輩者ながら、昨今のAjaxの技術のGIF89a（ハック）について newtype と oldtype の話を交えながら、ライトニングトークさせていただきました。これが、問題のソース。ちょっとだけ改変してあります。以下のリンクを追ってお試しあれ。 polyglot.(html|gif|pl) GIF89a(q=/*=);sub GIF89a{ print "Hello, Perl!"} __END__#*/1);function GIF89a(){ale
ppencode - JAPH perl program encode
ppencode is a program that trains JAPH (Just Another Perl Hacker). With ppencode, YOU are also JAPH from now! As you can see, ppencode uses only reserved keywords. Demo JavaScript version ppencode - JavaScript online demo Perl version ppencode - download Usage $ echo -n "just another perl hacker" | ppencode #!/usr/bin/perl -w length q else and print chr oct hex ord qw q bind q and print chr ord q
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.ecclestoad.co.uk/blog/2005/06/02/sudoku_solver_in_three_lines_explained.html
http://www.takaaki.info/archives/000101.html
Perl詩 - Google 検索