20 lines
No EOL
689 B
Racket
20 lines
No EOL
689 B
Racket
;; The first three lines of this file were inserted by DrRacket. They record metadata
|
|
;; about the language level of this file in a form that our tools can easily process.
|
|
#reader(lib "htdp-advanced-reader.ss" "lang")((modname fop-klausur) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #t #t none #f () #f)))
|
|
(define-struct abc (a b))
|
|
|
|
(define (foo p)
|
|
(if (abc? p)
|
|
(if (list? (abc-b p))
|
|
(cons (abc-a p) (abc-b p))
|
|
empty)
|
|
empty))
|
|
|
|
(define (bar lst n)
|
|
(cond
|
|
[(= 0 n) empty]
|
|
[(< (length lst) n) lst]
|
|
[else (cons (first lst) (bar (rest lst) (- n 1)))]))
|
|
|
|
(define (foo-bar n)
|
|
(lambda (x) (bar x n))) |