Entries from 2009-02-01 to 1 month

Sierpinski triangleワンライナー その2

Sierpinski triangleワンライナー - すぎゃーんメモの続き。 アルゴリズムの意味を自分なりに汲み取って書き換えてみた。 $ perl -le 'print map { ~$n & $_ ? "." : "#" } 0..($n = $_ - 1) for 1..2**pop' 6 # ## #.# #### #...# ##..## #.#.#.# ######## …

GenesisLightningTalks Vol.13 で喋ってきた その1

3回目の参加。毎度ありがとうございます。 http://wiki.somethingnew2.com/lt/index.php?Events%2F2009%2F02 とりあえず資料を下記にうpさせていただきました。 http://wiki.somethingnew2.com/lt/index.php?plugin=attach&pcmd=info&file=Genesis200902.pd…

GenesisLightningTalks発表順ワンライナー(?)

$ perl -MLWP::Simple -MEncode -C2 -le'print decode"euc-jp",splice@a,rand@a,1for 1..(@a=get("http://wiki.somethingnew2.com/lt/index.php?Events%2F2009%2F02")=~m|style_table.*?((?:<tr>.*?</tr>){8})|&&map{s|<.*?>||g;$_}grep{!($a++%8-1)&&$b++}$1=~m|<td.*?>.*?</td>|…

Sierpinski triangleワンライナー

perldoc Acme::EyeDrops から引用。 こういう図形のことはしっていたけど、こういう名前だったのか。 シェルピンスキーのギャスケット - Wikipedia $ perl -le '$x=2**pop;print$"x--$x,map$x&$_?$"x2:"/\\",0..$y++while$x' 4 /\ /\/\ /\ /\ /\/\/\/\ /\ /\…

1行自己紹介

$ perl -le 'print $~^" !#64:"'どうせ反則ならこれでいいかw

マジカルインクリメントによる文字列操作

$ perl -le '$~++for 0..515937;print lc$~'というのを一行自己紹介として使ってみるというのはどうだろう。 '$~'をSTDOUTとして使うのは反則かな。 追記 こんなのとか? perl -le '($_||="\163"x6)++while$a++<706623;print' 変なところから文字列を持って…

'-'で始まるファイル名、ディレクトリ名を操作する

'-Tmp-'という名前のディレクトリに移動しようとしてcdコマンド叩いてみたら、 $ ls -l total 0 drwxr-xr-x 2 sugyan staff 68 2 16 14:09 -Tmp- $ cd -Tmp-/ -bash: cd: -T: invalid option cd: usage: cd [-L|-P] [dir]となって困ったので、同じことで悩ま…

Acme::EyeDropsすげーーー

例:"fuga"を表示する、"hoge"なプログラム $ perl -MAcme::EyeDrops=sightly -e '$b = `banner -w 48 hoge`; print sightly({ ShapeString => $b, SourceString => "print \"fuga\n\"", Regex => 1, Rotate => 270 })' 1 shapes completed. ''=~('(' ."\?".…

デブサミ2009に、ちょっとだけ行ってきた

書くのが遅くなってしまったけど。 色々行って聴きたいものがあったんだけど、仕事の都合や自分の怠慢やら何やらで、結局1日目の【12-D-7】「コミュニティから選出のLT大会」だけしか行けなかった。 とは言えせっかく行って聴いてくることができたので、メ…

ワンライナー記号化スクリプトを書いた

何かの拍子にこの記事を見かけてしまい、衝撃を受けた。 2006-11-07 - 兼雑記 Perlってこんな変態プログラムが書けてしまうのか…!!と。 記号だけでプログラムが書けてしまうとは全然知らなかった。 何度も読み返してようやく理解した範囲では、 拡張正規表…

素因数分解ワンライナー記号編 その1

とりあえず1つできた!! $ perl -e '""!~("(?{\$*=".("/@^{_^)@/"^"_/.@/,@.[")."\$;,(\$*/=\$;)-!\$??\"*\":\$/".("^()@>{@]`][[/"^")@@,[_{`;:)>_")."{!(\$*%\$_)}!\$?..\$*]->[!\$?]})")' 2009 7*7*41150文字を超えてしまったので、もうすこし短くでき…

現在時刻を表示する記号ワンライナー

$ perl -le '""!~("(?{".("_/)./~^=_,_^},@=!@*@@;"^"/]@@[^-^>@>,]@/^@,^)-^")."})")'とてもこんなコマンドがマトモに動くようには見えないのに…Perlすげー

はじめての暗号ワンライナー

はじめてのHello world!! $ perl -e '""!~("(?{".("^_)@]@}(_,@/~)@,@;~~<@|"^".-@.)`_`:@,@^^/^,___`.^")."})")' Hello world!!ワンライナーでやろうとすると色々制限が増えて面倒っぽい。

すごいコード

''=~('(?{'.('[[).[|`%,,/`[/[@$'^'+)@@/^(@@@@@,@),@').'! "})') length q caller exec and print chr ord uc q chr lc and print chr ord q ref or and print chr ord q else and print chr ord q else and print chr ord q xor x and print chr oct oct o…

連続した数値を出力したりするコマンド

Linuxだと"seq"というコマンドがあるらしいけど、Macには無いらしい。 代わりに"jot"というコマンドがあるそうな。 $ jot 10 1 2 3 4 5 6 7 8 9 10オプションが結構あって、他にも色々できるらしい。 何かのときに役立つかも知れないので存在くらいは憶えて…

イイネワンライナー

$ perl -MLWP::Simple -MJSON -C2 -e '@f = @{$_->{favorites}} and print $_->{text}, $/, join($", @f),$/ for @{decode_json(get "http://api.wassr.jp/statuses/user_timeline.json?id=" . pop)}' <Wassr ID>何も出力されないとちょっと悲しい。</wassr>

GenesisLightningTalksで喋ってきた! その2

GenesisLightningTalksで喋ってきた! - すぎゃーんメモの続報。 YouTubeに動画がUPされた!yoozoosatoさん、ありがとうございます! >< GenesisLightningTalks - YouTube 私の発表はこちら。 「臨機応変ヒッチハイク一人旅」というテーマです。 発表につ…