목록을 통한 체계 순환

Question

체계에서이 목록을 어떻게 반복 할 수 있습니까?

(define test-document '(
        ((h e l l o)) 
        ((t h i s)(i s)(t e s t)) 
        )) 

첫 번째 열만 보여주었습니다. 당신은 루프의 루프의 루프를 만들어야합니다

(define test-document '(((h e l l o)) ((t h i s) (i s) (t e s t)))) 

요소를 반복 할

Answer 1

당신이 가진 것은리스트의리스트의 목록입니다. 다음과 같이 할 수있는 그래서 우리는 map 및 curry를 사용할 수 있습니다

(map (curry map (curry map 
     (compose string->symbol string-upcase symbol->string))) 
    test-document) 

이 다음과 같은 출력이 생성 당신의 계획 인터프리터가없는 경우

이

(((H E L L O)) ((T H I S) (I S) (T E S T))) 

내장 curry 기능하는 것은 다음 사용자가 정의 할 수 있습니다 하나는 다음과 같습니다 :

(define (curry func . args) 
    (lambda x (apply func (append args x)))) 

희망이 도움이되었습니다.

Answer 2

car 및 cdr 기능 군은 목록을 탐색하는 친구입니다. 여기 몇 가지 예가 있어요.

(define test-document '(
        ((h e l l o)) 
        ((t h i s)(i s)(t e s t)) 
        )) 

(car test-document) ;; `((h e l l o)) 
(caar test-document) ;; `(h e l l o) 
(cadr test-document) ;; `((t h i s) (i s) (t e s t)) 
(car (cadr test-document) ;; `(t h i s) 
(cadr (cadr test-document) ;; `(i s) 
(caddr (cadr test-document) ;; `(test) 

목록을 걷고 목록이 아닌 각 항목에 대해 함수를 호출하는 함수를 정의하십시오.

(define (walk-list lst fun) 
    (if (not (list? lst)) 
     (fun lst) 
     (if (not (null? lst)) 
     (begin 
      (walk-list (car lst) fun) 
      (walk-list (cdr lst) fun))))) 

각 항목을 인쇄하려면이 버튼을 누릅니다.

(walk-list test-document print) 

Answer 3

이런 식으로 생각 하시나요?

(define (walk-list lst) 
    (define (sub-walk lst) 
    (if (null? lst) 
     '() 
     (let ((x (car lst))) 
      (if (list? x) 
       (cons (sub-walk x) (sub-walk (cdr lst))) 
       (apply string-append (map symbol->string lst)))))) 
    (flatten (sub-walk lst))) 

다음

(walk-list test-document) 
=> '("hello" "this" "is" "test") 

당신은 평소 용의자를 사용하여 처리 할 수있는 ( map, filter, ...).

(define (flatten lst) 
    (reverse 
    (let loop ((lst lst) (res null)) 
    (if (null? lst) 
     res 
     (let ((c (car lst))) 
      (loop (cdr lst) (if (pair? c) (loop c res) (cons c res))))))))