もしや

(define (my_max . lis)
(cond [(null? lis) #f]
[(= (my_length lis) 1) (car lis)]
[(= (my_length lis) 2) (cond [(<= (car lis) (cadr lis)) (cadr lis)]
[(>= (car lis) (cadr lis)) (car lis)])]
[(>= (my_length lis) 3) (cond [(<= (car lis) (cadr lis)) (my_max (cons (cadr lis) (cddr lis)))]
[(>= (car lis) (cadr lis)) (my_max (cons (car lis) (cddr lis)))])]))
gosh> (my_max 1 2 3 4 5)
(2 3 4 5)

になるのは、consすると二回目のmy_maxの引数の数が1だと思われているから？ちょっとがんばってみよう。

• 「gauche」に関連する最近のエントリ
  • 自力でmaxを定義する – なにかうまくいかないや – 武蔵の日記
  • 『プログラミングGauche』自分でmaxを定義してみる（アイディアを練ってみる） – 武蔵の日記
  • 車輪の再発名だけど、ユークリッドの互除法 – 武蔵の日記
  • 武蔵の日記

追記:

(define (my_max . lis)
(cond [(null? lis) #f]
[(= (my_length lis) 1) (car lis)]
[(= (my_length lis) 2) (cond [(<= (car lis) (cadr lis)) (cadr lis)]
[(>= (car lis) (cadr lis)) (car lis)])]
[(>= (my_length lis) 3) (cond [(<= (car lis) (cadr lis)) (car (cons (cadr lis) (cddr lis)))]
[(>= (car lis) (cadr lis)) (car (cons (car lis) (cddr lis)))])]))
gosh> (my_max 1 2 3 4 5)
2

となるから自分の勘違いかな？

追記の追記:

(define (my_max . lis)
(cond [(null? #?=lis) #f]
[(= (my_length lis) 1) (car lis)]
[(= (my_length lis) 2) (cond [(<= (car lis) (cadr lis)) (cadr lis)]
[(>= (car lis) (cadr lis)) (car lis)])]
[(>= (my_length lis) 3) (cond [(<= (car lis) (cadr lis)) (my_max (cons (cadr lis) (cddr lis)))]
[(>= (car lis) (cadr lis)) (my_max (cons (car lis) (cddr lis)))])]))
gosh> (my_max 1 2 3 4 5)
#?=lis
#?-    (1 2 3 4 5)
#?=lis
#?-    ((2 3 4 5))
(2 3 4 5)

いや、勘違いじゃなかったぞ！