Guest User

Untitled

a guest
Mar 17th, 2018
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.40 KB | None | 0 0
  1. (define (after-last x l) (call/cc (λ (hop) (letrec ((A (λ (l) (cond
  2.                                                                 ((null? l) '())
  3.                                                                 ((equal? (car l) x) (hop (A (cdr l))))
  4.                                                                 (else (cons (car l) (A (cdr l))))))))
  5.                                              (A l)))))
Add Comment
Please, Sign In to add comment