so what

2007-03-06

問題1.3

SICP

亀の歩みだ…

僕の解答

(define (f x y z)
	(define (square n)
		(* n n))
	(define (sum a b)
		(+ (square a) (square b)))
	(if (>= x y)
	    (if (>= y z) (sum x y) (sum x z))
	    (if (>= x z) (sum y x) (sum y z))))

(display (f 3 5 4))
(newline)

解答例

  • http://www.kahua.org/download/sicp/ex-1.3.scm

所感

3項演算子みたいなやり方のほうがスマートだなー。

winebarrel 2007-03-06 00:00

問題1.3
この記事をはてなブックマークに追加
Tweet
  • もっと読む
コメントを書く
« Cygwin 上の bash で,CR を無視する方法 問題1.4 »
プロフィール
id:winebarrel id:winebarrel はてなブログPro
検索
リンク
  • Twitter
  • Bitbucket
  • GitHub
最新記事
  • RailsでMySQLのEXPLAINのやばそうなキーワードに色をつけるやつ
  • Aurora/RDS用プロダクション→ステージング レプリケーションツールを書いた
  • SpringOnion: Railsの遅そうなEXPLAINをログ出力するgem
  • CSVとかTSVをJSON LinesにするツールをGoとRustで書いた
  • qrnというDBベンチマークツールを作った
月別アーカイブ

はてなブログをはじめよう!

winebarrelさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?

はてなブログをはじめる(無料)
はてなブログとは
so what so what

Powered by Hatena Blog | ブログを報告する

スターをつけました

引用をストックしました

引用するにはまずログインしてください

引用をストックできませんでした。再度お試しください

限定公開記事のため引用できません。

読者です 読者をやめる 読者になる 読者になる