勉強の続きだよ。

型を判定する手続き

• pair?
• null?
• list?
• boolean?
• symbol?
• number?
• char?
• string?

性質を判定する手続き

• odd?
• even?
• zero?
• exact?
• char-alphabetic?
• proper-list?

not

否定だよ。

gosh> (not (= 2 3))
#t
gosh> (not (= 2 2))
#f

条件を判断するcase手続き

select caseなんかと同じみたいだ。

gosh> (define (score card)
(case card
((A) 11)
((J Q K) 10)
((2 3 4 5 6 7 8 9 10) card)))
score
gosh> (score 4)
4
gosh> (score 10)
10
gosh> (score 'A)
11

条件が真の時だけ処理を行うwhen手続き

これだとif手続きの方がいいのかもしれないけど:

gosh> (define (foo num)
(when (< num 10)
num))
foo
gosh> (foo 4)
4
gosh> (foo 11)
#<undef>

ちなみに条件式が偽のときだけ式を評価させたい場合はunlessを用いるよん。

1から任意の整数までの和を足しあわせた結果を表示

こんなんでいいのかー。すごく短い。

gosh> (define (sum n)
(if (= n 1)
1
(+ (sum (- n 1)) n)))
sum
gosh> (sum 10)
55

Cだとこんな感じかしら？

/* ======================= */
/* === Include library === */
/* ======================= */
#include <stdio.h>
#include <stdlib.h>
/* ============ */
/* === main === */
/* ============ */
int main(int argc, char *argv[])
{
int i = ;
int sum = ;
int num = atoi(argv[1]);
for (i = ; i <= num; ++i)
{
sum += i;
}
printf("%d\n", sum);
}

発想が全然違う気がする。

• 「gauche」に関連する最近のエントリ
  • 等価性 – 武蔵の日記
  • 複数の引数をとる手続きだよ – 武蔵の日記
  • 『プログラミングGauche』の勉強 – 武蔵の日記
  • lambdaでてきた – 武蔵の日記
  • Hello world! – 武蔵の日記