如何建立一个看起来像的列表（列出＆＃34; a＆＃34;＆＃34; aa＆＃34;＆＃34; aaa＆＃34;＆＃34; aaaa＆＃34;＆＃34; aaaaa＆＃34; ）

Question

要求是使用drracket（scheme）build-list来生成(list "a" "aa" "aaa" "aaaa" "aaaaa")。

我试过了foldr，但只给了＃34; aaaaa＆＃34;

(define (build-a-string n)
  (foldr string-append "" (build-list n "a")))

Answer 1

(build-list 5 (lambda (i)
                (make-string (add1 i) #\a)))

Answer 2

这是一个使用“fold”的解决方案：

#lang racket

(define (build-as n)
  (for/fold ([as '("")]) ([_ n])
    (define last-a (first as))
    (define new-a  (string-append "a" last-a))
    (cons new-a as)))    

(build-as 5)

以下是简短版本：

(define (build-as n)
  (for/fold ([as '("")]) ([_ n])
    (cons (string-append "a" (first as)) as)))