@phoopio/

insertL

Scheme

No description

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