司馬遼太郎著 「義経」読了。 義経 中学生の頃に、何となく社会で覚えたが全く覚えていないので、読んでみた 源義経の戦は天才。 しかし、政治力はまるで子供。 この両極端な性格ゆえに、兄者である頼朝から毛嫌いされ、その理由もわからずに最終的には自害…

竜馬がゆく 「竜馬がゆく」読了。 司馬遼太郎の小説は、割と気合を入れて読まなければいけない。 読了するのに、やたら時間がかかる。 スイスイとは読めませんね。 以前、高知に住んでいながら、全然坂本龍馬の事を知らなかった。 勉強がてら、この本を買っ…

久しぶりのawkネタ じゃんけんで出す手を使った多数決を考えます。 それぞれ出せる手は「グー」「チョキ」「パー」のいずれかです。 このとき、一番多くの人が出した手が勝つことになります。 例えば、6人で行うときは表1のように1回で勝者が決まる場合もあ…

志高く 孫正義正伝 新版 (実業之日本社文庫) 「志高く 孫正義正伝」読了。 孫正義、ご存知ソフトバンクの創業者であり、現会長。 彼がどのようにして、ソフトバンクを作ったのか。そしてどのようにしてソフトバンクを成長させたのかが分かる1冊。 志なくして…

awkネタ 以前どっかのサイトに載せられていたawkで作ったテトリス。 これでテトリスが出来るのだからすげー。 ぜひ遊んでみてください。 # $Id: awktris.awk,v 1.4 2006/01/31 23:14:42 tnn Exp $ # awktris - tetris in 19 lines of code, or 1516 bytes. #…

コンビニ人間 コンビニ人間読了。 何でも合理的に考える主人公。 世間とのギャップに戸惑いながらもコンビニでバイトすることで、自分と世間のギャップを埋めていく。 店長から自分が必要とされていることを感じ、コンビニでバイトを続ける。 コンビニでバイ…

perlネタ 仕事で、ファイル名を一括変更する必要があり、作ってみた。 use strict; use warnings; use File::Copy 'move'; my ($dir, $from, $to) = @ARGV; chdir $dir or die "NG $dir:$!"; my @all_files = glob "*.pdf"; my $to_all_file; foreach my $al…

awkネタ ドラゴンカーブ 同じ向きに何回も折り曲げ、折り目が直角になるように開いて出来る曲線 この曲線は自分自身と接することはあっても交わりはしない。 描き始めた点を中心として90度、180度、270度開園して出来る曲線は元の曲線と交わらない 位数order…

awkネタ 前回と同様に、一山の石から交互に石を取る。 取る石の数は、相手が直前に取った石の数の２倍を超えてはならない。 最後に石を取ったものの勝ち。 ただし、最初に全部の石を取ってはならならい。 パスは出来ない。 #!/usr/bin/awk -f BEGIN{ f[1] = …

awkネタ 一山の石から交互に石を取る。最後に石を取ったものが負け。 １回に取れる最大数は予め決めておく。パスは出来ない。 コンピュータは次のように考える。例えば１回に取れる最大数を３個とする。 相手が１，２，３個取ればそれぞれ３，２，１個取るこ…

家族八景 家族八景読了。 恥ずかしながら、著者の筒井康隆はこの作品で初めて知った。 小飼弾さんが、「筒井康隆」は最高！と著書で述べていたので、「弾さんがそういうなら間違いない！」と思って購入。 予想以上に面白かった。 こんな本を今まで見逃してい…

perlとawkネタ カジノの定番、ブラックジャック。 ゲームを１回行うには、最低１枚コインが必要です。 勝てば２枚のコインを得られますが、負けると掛けたコインが没収されます。 最初に１枚だけコインを持っており、１枚ずつ掛けていったとき、ゲームを４回…

awkネタ 有名な「パスカルの三角形」は「右上の数と左上の数の和」を配置していきますが、今回は「排他的論理和」を使います。 01段目：1 02段目：11 03段目：101 04段目：1111 05段目：10001 06段目：110011 07段目：1010101 08段目：11111111 09段目：1000…

「シェル芸」に効く！AWK処方箋 「シェル芸」に効く！AWK処方箋 読了 目次 第1章 簡単で、奥深くて、超便利！ LLの元祖「AWK」にさわってみよう 第2章 シェルコマンドを使った処理の効率化はAWKの行（レコード）走査がカギをにぎる 第3章 AWKプログラミング…

破天荒フェニックス オンデーズ再生物語 破天荒フェニックス オンデーズ再生物語 読了。 眼鏡屋オンデーズをどのようにして再生していったのかが分かる半分フィクションの小説。 まー、この手の話はどうしても美化されがちなので、そのまま鵜呑みには出来な…

awkネタ 「30人31脚」を有利に戦うための並べ方を考えます。 女の子が続いて並ぶと体力的に不利なので、女の子は隣り合わないようにします。 (男の子は何人並んでもよいものとします) 30人を1列に並べる時、その並べ方が何通りあるかを求めてください。 男女…

世界史とつなげて学べ 超日本史 世界史とつなげて学べ超日本史読了。 世界史の予備校講師の書いた日本史の本。 日本史を学びたかったから、読んでみた。 外交中心の話題が沢山出てくる。 日本と他国がどのように結びついてきたのか、よく分かる。 第１章 そ…

人工知能は人間を超えるか 「人工知能は人間を超えるか」読了。 今流行りの人工知能を扱った入門書。 目次 序 章 広がる人工知能――人工知能は人類を滅ぼすか 第1章 人工知能とは何か――専門家と世間の認識のズレ 第2章 「推論」と「探索」の時代――第1次AIブー…

awkネタ 同じ長さの3本のひもを折り曲げて３つの四角形を作ります。 そのうち2本でそれぞれ長方形を作り、残りの1本は正方形を作ります。 このとき、作った２つの長方形の面積の和が、正方形の面積と同じになることがあります。 (ただし、いずれの長方形、正…

暗号解読 サイモン・シン 暗号解読読了。 暗号についてこれほど分かりやすく解説された本は無いと言えるほど、分かりやすい。 終始暗号作成者と暗号解読者の闘いが述べられている。 ネタバレを言うと最後は量子コンピュータの話題に触れており、暗号作成者の…

たった一人の熱狂 「たった一人の熱狂」読了 幻冬社の社長である見城徹によるビジネスや考えがここに詰まっている。 彼はこの本の中に圧倒的努力を何回も述べている。 とにかく努力！努力！のオンパレード。 人が成功する最短の方法は圧倒的努力をこれでもか…

awkネタ ある階段を下からAさんが上がっていくと同時に、上からBさんが降りてきます。 階段は1段ずつ上がる(降りる)必要はなく、最大で3段まで飛ばして進む(一気に 4段進む)ことが出来ます。 ただし、何段飛ばすときも、1回の移動にかかる時間は同じとします…

キッチン キッチン読了。 著者の事は名前だけ知っていたが、彼女の作品は初めて読んだ。 この作品は死について考えさせられる。 死そのものではなく、死んだ後に残された家族の心情を深く描写された作品。 死ぬのは怖くない。しかし、その後に残された家族や…

awkネタ 2014年の大会の出場国でしりとりしましょう。 2014年大会の出場国は32か国です。 2014年FIFAワールドカップ出場国 国名 国名 国名 Brazil Croatia Mexico Cameroon Spain Netherlands Chile Australia Colombia Greece Cote d'lvoire Japan Uruguay …

さて、以前の問題をperlで解いていましたが、awkで解き直してみました。 まずは、これ。 utthi-fumi.hatenablog.com #!/usr/bin/gawk -f BEGIN{ PREC = 100; before = 0; cnt = 0; n = 1; while(1){ fibona = fibo(n); fibo_div = fibona / sp(fibona); if(f…

awkネタ 覆面算とは、文字列で表された計算式で、同じ文字には同じ数字がはいり、違う文字には違う数字が入ります。 また、最上位の文字には0は入りません。 例えば、 We × love = CodeIQ という式が与えられた時、以下のように当てはめることができます。 W…

awkネタ 平方根を小数で表したときに、0～9までの数字が最も早くすべて現れる最小の整数を求めて下さい。 ただし、ここでは正の平方根のみを対象とします。 整数部分を含む場合と、小数部分のみの場合のそれぞれについて求めて下さい。 例）2の平方根：1.414…

プログラミングネタ フィボナッチ数列のうち、各桁の数字を足した数で割り切れる数を以下の例に続けて小さいほうから5個求めてください。 2 → 2 ÷ 2 3 → 3 ÷ 3 5 → 5 ÷ 5 8 → 8 ÷ 8 21 → 21 ÷ 3・・・2 + 1= 3で割る 144 → 144 ÷ 9・・・1 + 4 + 4 = 9で割る…

燃えよ剣読了。 新選組の土方歳三の生涯がこれで分かる。 前作がサイドストーリーなら今作品は本編といえるだろう。 恥ずかしながらこの年になるまで、新選組の事は知らなかった。 この主人公の土方歳三の名前さえ知らなかった。 彼の生きざまを見たときに、…

さて、今まではawkを使ってパズルを解いてきましたが、今回はperlで解いてみたいと思います。 なかなかawkと違ってperlは汎用性のある分、覚えることが多いのですが、それだけ応用も効くということでしょうか。 では、早速やってみましょう。 ルーレットの数…