« 数値をサーモグラフィーっぽく色変換する | main | 誤字ェネレータを作った »

あけましておめでとうございます

新年です。Perlです。

puts (a=(h=lambda{{101,[2,9,13,15],114,
[32],32,[10,19,29],97,[0,4],100,[14],109,
[3,12,27],115,[5,24,34],121,[30],117,
[18,38],107,[1,20,37],104,[6,25,35],111,
[11,17,21,23,28,31,33],105,[7,26,36],116,
[8,16,22]}}).call.keys.map{|k|h.call[k].map{|v|
[v,k]}}.flatten).map{@i=@i?@i+=1:0;@i%2==0?
[a[@i],a[@i+1]]:nil}.compact.sort_by{|v|
v[0]}.map{|v|"%x"%v[1]}.join.to_a.pack('H*')

flattenの手前あたりでめげそうになりました。誰か直して下さい。

体調も新年からここ4日ずっと寝込んでいたりしたのですが、やっと若干上向いてきました。
今年も何とか頑張ります。

トラックバック

このエントリーのトラックバックURL:
http://polog.org/mt-tb.cgi/405

コメントを投稿

Powered by
Movable Type 3.34