(define (create-polygon ptlist)
(if (null? ptlist) 0
(append (list (make-seg (car ptlist) (cadr ptlist))) (create-polygon (cdr ptlist)))))
이 프로그램을 실행할 때마다 계약 위반 오류가 발생합니다. 나는 당신이 자동차 나 CD
문제는 p1, p2, p3, p4라고하는 폴리곤 모서리에 대한 좌표로 가득 찬 목록이 있다는 것입니다. 이 (p1, p2) (p2, p3) (p3, p4) (p4, p1)과 같은 새 목록에 재귀 적으로 추가해야합니다. 그리고이 목록을 시작할 수 있습니다 (p1 p2 p3 p4)
좀 작업을 수행 한 후 다음 문자열이있는 경우 - 나는 목록으로 돌아 변환하려고 "this is a string" - 사용 (this is a string) 을 내장 string->list을 methong 나는 (#\t #\h #\i #\s #\space #\i #\s #\space #\a #\space #\s #\t #\r #\i #\n #\g #\?)을
(define (min list)
(cond ((empty? (car list) '"It is empty")) <- Problem is here. Code work without this line.
((empty? (cdr list)) (car list)) ;to check list is empty
((< (car list) (m
내가 색인 난에서 시작 목록에서 요소의 n 개의 번호를 삭제하는 절차를 만들려고하고있는 목록에서 요소 n 개의 제거 : (define (remove L i n)
(cond ((null? L)
'())
((and (= i 0) (= n 0))
L)
(else (cons (car L) (remove (cdr L) (
파이썬에서 함수 나 메서드를 사용하여 변수에 값을 할당하는 방법이 있습니까? 나는 Scheme 인터프리터를 작성 중이며 가능한 경우 프로세스가 크게 단순화 될 것입니다. 이것은과 같이 운영자 모듈의 기본 논리와 수학에 대해 수행 할 수 있습니다 : 당신은 클래스 변수를 사용할 수 있습니다 >>> operator.assign(a, 5)
>>> print(a
내가 계획하고 일반적으로 리스프에 새로운 해요, 학습에 내가 바인딩 로컬 프로 시저에 사용되는 암호 같은 구문을 우연히 발견했습니다 : 그것은 있음을 파악 걸 렸어요 (define mock
(lambda (s)
;; this is what I don't understand
(let splice ([l '()] [m (car s
나는 car, cdr 등의 계획과 아이디어에 새로운 점을 가지고 있습니다. 목록의 마지막 요소를 반환하는이 함수가 있지만, 지금은 그냥 빈 목록 만 반환합니다. (define (last mylist)
(if (list? mylist)
(if (null? mylist)
(if (null? (cdr mylist))