http://www.hyuki.com/haskell/200503 からリンクしていただいた。 ありがとうございます！しかし。 Haskell は本当に初心者なので、ちょっと恥ずかしい。

あいたしこ・ちんぱん・にらいかない の記事を 問題 g:club-tahoiya:id:Nabetani:11050330 正解 g:club-tahoiya:id:Nabetani:10050330 に書いた。 と同時に、キーワードの方を削除予定に回した。 削除する必要あるの？ と思っているんだが、そういう慣例のよ…

引き続き Haskell。 今回の課題は、list の中から n 個選ぶ選び方を全て列挙する、という問題。 たとえば関数名を allCombi とすると、allCombi 2 [1,2,3,4,5] は、[ [1,2], [1,3], [1,4], [1,5], [2,3], [2,4], [2,5], [3,4], [3,5], [4,5] ] を返せばよい…

現在正解当てフェーズに移行しているたほいや倶楽部。締め切り間近です。正解当ての集まりが悪くてちょっと悲しいです。ふるって正解当てにご参加下さい。 はてなid をお持ちでない方は、mixi メッセージ（ http://mixi.jp/show_friend.pl?id=46736 の 鍋谷…

二分探索を書いてみた。 import System import Numeric bisearch f e (x,y) | 0 == f x = (x,x) | 0 == f y = (y,y) | delta < e = (x,y) | sf x == sf y = error $ "sign . f x == sign . f y" ++ (show (x,y)) | sf x /= sf c = bisearch f e (x,c) | sf y…

http://d.hatena.ne.jp/Nabetani/20050322/p1 の通り。 徐々に嘘が集まりつつある。前回回答なさっていて、まだお気づきでなさそうな d:id:alcus様, d:id:alisato様, d:id:Hummingbird様, d:id:jinc様, d:id:mozuyama様, d:id:nobuhiro-n様, d:id:onobu様, d…

問題。 以下の条件を満たす波及効果の問題で、最も小さなものを全て挙げよ。ただし、回転したり裏返したりして重なるものは同じ問題と見なす： 全体として、一辺が 2 以上の矩形をしている。 はじめから入っている数字は一つもない。 問題として成立している…

昨日の続き。 jmuk さんや id:KimuraShinichi さんの助言を受けて改良した。faray 列版。昨日のよりも長くなっているような気もするが、そういうこともある： import System import Numeric faray m a b = f a b where f a@(an,ad) b@(bn,bd) | d < m = f a …

haskell らしいプログラムであるような気が全くしないんだが、書けた。 import System import Numeric faray m a b | (snd a)+(snd b)<m = (faray m a c) ++ (faray m c b) | True = [a] where c = ((fst a)+(fst b),(snd a)+(snd b)) irr m = ( faray m (0,1) (1,1) ) ++ [(1,1)] argToNum x = fst $ head $ readDec $ head x main = getArgs >>= \a -> …</m>

これから haskell で書こうとしている計算を、まずは慣れている ruby で書いてみることにした。 折角書いたので、ここにも載せておこう： def faray( a, b, m ) d = a[1]+b[1] if d

初めての haskell は、既約分数クイズ*1。 この日記の最初の日に書いたものと同様、スターン・ブロコット木 / ファレイ列 を使わないもの。 gcd も使わない。 import System import Numeric h m (n,d) | (n*2)

たほいや倶楽部あいたしこ たほいや倶楽部ちんぱん たほいや倶楽部にらいかない 正解当て募集中です。締め切りは、3月29日23時59分。正解当てのコメントをお待ちしています＞各位

mixi 内の某所（mixi 内なのでリンクしていいものかどうかよくわからない）で知ったんだが、のりぴーの結婚関連イベントと地震が重なっているらしい。しかし。誕生日付近というよけいなことも含めて日付を集めてみると： 1965年 4/17 黒田さん生誕 1965年 4/…

今日の写真は、先日の散歩中に撮った写真。カラフル。 なんとなく気に入ったので、フォトライフに入れてみた。もちろん、元の写真は 4:3 で、もっとずっと大きい。アップした写真は、歪曲と水平を調整した上、明るさもちょっと変え、トリミングした。 どうせ…

正解当てに移行した。 たほいや倶楽部あいたしこ たほいや倶楽部ちんぱん たほいや倶楽部にらいかない アンテナにかかってしまい、不参加*1となってしまった方がいらっしゃったのは残念だったが、九つも集まれば上出来だろう。ちなみに、下記のように一部改…

たほいや倶楽部あいたしこ たほいや倶楽部ちんぱん たほいや倶楽部にらいかない の嘘を、引き続き募集中。 募集中ではありますが、すでに嘘が六つ集まったので、締め切りは 3/22(火) 23:59 になりました。 嘘を考えている方はお早めに。 ＃参照：d:id:Nabeta…

引き続き嘘募集中。 まだ六つそろってはいないので、締め切りはもうちょっと先になります。 ＃締め切りなどについては id:Nabetani:20050313:p1 を参照のこと。

今日の写真も、先日の散歩から。 散歩の途中、フェンスの上に鎮座ましましている猫を発見した。背中のカーブの具合といい、ぴんと立った耳といい、前足の辺りにおちついているしっぽの具合といい、大変猫らしい。 黒っぽいからだと白い背景のコントラストも…

現在鋭意嘘回答募集中。 もうすぐ嘘の数が六になる。まだなってはいないが、予想以上によいペースで集まっている。 どれだけあつまっているのかは内緒。 ＃締め切りなどについては id:Nabetani:20050313:p1 を参照のこと。

散歩していたら、小学校の卒業式に出くわした。「校長先生のお話です」という小学生の声が、学校の外まで響いていた。 で。 その「校長先生のお話です」だが、尊敬・謙譲の関係がおかしいのではないか。 その場にはおそらく、教師・生徒・父母 の三者がいる…

今日は、朝八時頃散歩した。 散歩の途中、ハクセキレイとよく似ているが、おなかの辺りが黄色くなっている鳥を発見した。 果たして、キセキレイである。漢字で書くと、黄鶺鴒。 とういわけで、今日の写真はキセキレイ。 ほかにもいろいろ写真を撮ったが、そ…

現在鋭意嘘回答募集中。 徐々に集まりつつある。私の予想よりよく集まっいる。まずまず。 どれだけあつまっているのかは内緒。 締め切りなどについては id:Nabetani:20050313:p1 を参照のこと。

GHC を入れてみた。やっと hello, world ができたところ。 コンパイル＆リンクするのには gcc のリンカが必要か。うーむ。 runhaskell があるからよしとするか。

今日。 カメラを提げて公園を散歩していたら、道の脇に、60過ぎと思われるおじさんが座っていた。森の中という風情の場所だったので、山歩きの気分で、知り合いでも何でもないのに「こんにちは」と声をかけた。 すると。 「写真とるなら、そこに桜が咲いてる…

＃ここもですます調で 作業完了のつもりです。 キーワードを三つ新規作成し、一つ編集し、日記をアップするというのは、なかなか面倒なことであるよ（詠嘆）。 キーワードからもトラックバックされるんだということを初めて知りました。なかなかそんなことに…

たほいや倶楽部。今回は初出題。 たほいや倶楽部あいたしこ たほいや倶楽部ちんぱん たほいや倶楽部にらいかない 締め切りは： 嘘が6つ集まったことに私が気づく その時点の直後の23時59分の、24時間後を締め切りとする その旨をここに告知する という仕組み…

京セラがデジタルカメラから撤退したらしい。 CONTAX U4R のシリーズには期待していたのでちょっと残念だ。 せっかく CONTAX ブランドなんだから、損益分岐点 1000台ぐらいの超高級コンパクトカメラでも出せばよかったのにと思う。 それはともかく。 http://…