Skip to content

Instantly share code, notes, and snippets.

@MarkShulhin

MarkShulhin/gist:d2d92f164a2c0239a74b7110ea197c21

Last active September 27, 2017 14:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save MarkShulhin/d2d92f164a2c0239a74b7110ea197c21 to your computer and use it in GitHub Desktop.
Save MarkShulhin/d2d92f164a2c0239a74b7110ea197c21 to your computer and use it in GitHub Desktop.
Download ZIP
Scheme lab 3
Raw
gistfile1.txt
#lang scheme
(define (reverse1 l)
(if (null? l)
null
(append (reverse1 (cdr l)) (list (car l)))))
(define (DFM atom list rezlist)
(cond ((or (equal? atom '())(equal? list '())) '(wrong input!))
((equal? atom (car list)) (reverse1 (cons (cdr list) rezlist)))
(#t (DFM atom (cdr list) (cons (car list) rezlist)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment