내가 색인 난에서 시작 목록에서 요소의 n 개의 번호를 삭제하는 절차를 만들려고하고있는 목록에서 요소 n 개의 제거 : (define (remove L i n)
(cond ((null? L)
'())
((and (= i 0) (= n 0))
L)
(else (cons (car L) (remove (cdr L) (
핵심 표준 라이브러리를 고수하면서 이와 같은 작업을하려고합니다. (define (fn m x b) (+ b (* m x)))
((curry fn _ 3 _) 2 4) -> (fn 2 3 4)
이와 비슷한 것이 있거나 라켓 커뮤니티가 명명 된 인수와 같은 다른 관용구를 규정합니까?
두 개의 인수, 즉 계열의 시작 및 끝 값을 취하는 forAll 프로 시저를 작성하려고합니다. 결과 클로저는 두 개의 인수도 기대합니다 : 초기 값은 물론 시리즈의 모든 요소에 적용 할 연산. 이것은 내가 가지고있는 것인데, 나는 뭔가를 놓치고있는 것처럼 보입니다. 그렇지 않으면 폐쇄 뒤에있는 개념을 이해하지 못합니다. (define (forAll n m)
내가 매크로를 사용하여 계획이 뭔가를 구현하기 위해 노력하고있어이 (define-struct example (a b))
(define var (make-example 1 2))
(example? var)
(example-a var)
처럼 구조 유형을 생성하고 사용할 수있는 기회를 가질 수 있지만 결합 된 이름을 가진 절차의 생성에 문제가 (m
목록 목록의 요소를 어떻게 변경합니까? 편집 : 나는 부분적으로 문제를 해결 (define a (list
(list 1 2 3)
(list 4 5 6)
(list 7 8 9)
)
)
(define (list-change alist row column value)
(cond
[(= row
클로저를 반환하는 프로 시저를 작성하려고합니다. 내 시리즈에 어떤 절차를 적용 할 수 있기를 원합니다. 이것은 내가 지금까지 가지고 있고 그것은 나를 위해 일하지 않습니다. (define (forAll n m)
(lambda (op start)
(op (op n start) (+ n 1) m)))
나는 이러한 작업을 수행 할 수 있도
스키마에서 x 요소를 기존 목록에 i 위치에 추가하는 절차를 구현하려고합니다. 이것은 내가 생각해 낸 것입니다 : (define empty-list '())
(define (add i x L)
(cond ((null? L) (set! L (list x)))
((= i 0)(set! L (cons x L)))
(else (se
(단어 주파수 "안녕하세요 사람 안녕하세요") 내가이 오류가 : 나는 그것을 같은 입력을 줄 때 (define (num-occurs sym lst)
(define (counter sym lst count)
(cond ((null? lst) count)
((equal? (car lst) sym) (counter sym (cdr
여기 내 프로그램이 있습니다. n이 0이면 1 따라서 황금 비율을 제시하고, 여기에 추가로 (define (golden n)
(cond
[(equal? n 0) 0]
[else (/ (+ 1 (golden (- n 1)))) ]
))
, 나는 결과를 반환 할 ... 1.61 현재이 프로그램은 분수로 약 0.61 반환 - 나도