Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
(define limit (read))
(define (read-input-list n)
(if (= n 0) '() (cons (read) (read-input-list (- n 1)))))
(define takonum (read))
(define takolist (read-input-list takonum))
(define kyakunum (read))
(define kyakulist (read-input-list kyakunum))
(define (answer lista listb limitnum) (cond ((null? listb) "yes")
((null? lista) "no")
((<= 0 (- (car listb) (car lista)) limitnum) (answer (cdr lista) (cdr listb) limitnum))
(else (answer (cdr lista) listb limitnum))))
(display (answer takolist kyakulist limit))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment