@phoopio/

insertR

Scheme

No description

fork
loading
main.scm
1
2
3
4
5
6
7
8
9
10
(define insertR
  (lambda(new old lat)
    cond
      ((null? lat) quote())
      (else 
        (cond
          (eq? (car lat) old)
          (cons (car lat) (cons new (cdr lat)))
        else( cons (car lat) (insertR new old (cdr lat)
      )))))
BiwaScheme Interpreter version 0.6.4 Copyright (C) 2007-2014 Yutaka HARA and the BiwaScheme team