여기까지 제가 지금까지 가지고있는 것이지만 오류가 있기 때문에 실행할 수 없습니다. 작동하는지 모르겠으므로 자체 스택을 만들려고합니다. 개체를 DrRacket에서 개체 지향 프로그래밍을 사용하여, 나는 그들이 제대로 호출하는 경우 가지고있는 다른 프로 시저를 호출하는 디스패치 방법을 사용하고 있습니다. 예를 들어 먼저 스택을 만든 다음 스택으로 밀어 넣고
를 사용하여 계획의하자 구현을 쓸 수 있지만 구문이 (define-syntax mylet
(syntax-rules ()
((mylet definitions evaluation)
((lambda (map car definitions) evaluations) (map cdar definitions)))))
여기 내가 (길이 n 균형 괄호의 모든 쌍을 표시합니다) (define (combine-list l r)
(append l (cons r '())))
;(combine-list '(1 2 3) '(4 4))
(define(bps n)
(bps-iter '() (/ n 2) 0 0))
(define (bps-iter lst n open
(call-with-output-file "b.txt"
(lambda (output-port)
(display "hello, world" output-port)))
추가 모드에서 b.txt를 여는 방법. 그러면 결과가 텍스트 파일에 추가됩니다. 나는 다음과 같은 대답을 발견했다. 그러나 그것은 내가 기대하는 것이 아닙니다. Append in sche
나는 끝에 연산자를 사용하여리스트를 평가하는 계획 프로그램을 작성 중이다. 예 : (평가 '(1 2 +)) -> 3 내가 기본 운영자 작업 기능을 가지고 (+, -, *, /)하지만 문제는 내가 중첩이있을 때 온다 명부. 예 : ('평가 (1 (2 3 +) *)) -> (아무것도) 내가 조건을 실종? (define (evaluate lis)
(co
내가 색인 난에서 시작 목록에서 요소의 n 개의 번호를 삭제하는 절차를 만들려고하고있는 목록에서 요소 n 개의 제거 : (define (remove L i n)
(cond ((null? L)
'())
((and (= i 0) (= n 0))
L)
(else (cons (car L) (remove (cdr L) (
두 개의 인수, 즉 계열의 시작 및 끝 값을 취하는 forAll 프로 시저를 작성하려고합니다. 결과 클로저는 두 개의 인수도 기대합니다 : 초기 값은 물론 시리즈의 모든 요소에 적용 할 연산. 이것은 내가 가지고있는 것인데, 나는 뭔가를 놓치고있는 것처럼 보입니다. 그렇지 않으면 폐쇄 뒤에있는 개념을 이해하지 못합니다. (define (forAll n m)
클로저를 반환하는 프로 시저를 작성하려고합니다. 내 시리즈에 어떤 절차를 적용 할 수 있기를 원합니다. 이것은 내가 지금까지 가지고 있고 그것은 나를 위해 일하지 않습니다. (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