名のリストと姓のリストを取得し、名の最初の文字と姓の最大 7 文字と @yahoo を使用して電子メール アドレスの新しいリストを作成する質問を見つけようとしています。 .com。
例:
(check-expect
(emails-list (list "John" "Sarah") (list "King" "Dickinson"))
(list "jking@yahoo.com" "sdickins@yahoo.com"))
(check-expect (emails-list empty empty) empty)
これまでのところ、私は持っています:
(define (appendnames alof alos)
(cond [(and (empty? alof) (empty? alos)) empty]
[else (string-append
(substring (first alof) 0 1)
(cond [(< (string-length (first alos)) 8) (first alos)]
[else (substring (first alos) 0 7)])
"@yahoo.com")]))
(define (emails-list alof alos)
(cond [(and (empty? alof) (empty? alos)) empty]
[else (appendnames alof alos)]))
どうすればよいかわからないのは、最初の文字を小文字にする方法と、appendnames が (appendnames (rest alof) (rest alos)) になるように再帰をどこに置くかです。
私が得ることができる助けをありがとう!