僕の備忘録(PC、UN*X、ネットワーク関連が中心)なんです。
自分の書いたところは適当(な時とか)に書き換えますので御了承を。
gosh> (define (compare num1 num2) (cond ((> num1 num2) (list num1 "is larger than" num2)) ((< num1 num2) (list num1 "is smaller than" num2)) (else (list num1 "and" num2 "is equal")))) compare gosh> (compare 3 4) (3 "is smaller than" 4) gosh> (compare 3 1) (3 "is larger than" 1) gosh> (compare 3 3) (3 "and" 3 "is equal")
リンクはご自由にどうぞ。でもURLや内容が変った場合はあしからず。