fork download
copy 
  1. (define insertR*
  2.   (lambda(new old l)
  3.     (cond
  4.      ((null? l) quote())
  5.      ((atom? (car l))
  6.       (cond
  7.        ((eq? old (car l))(cons old (cons new (insertR* new old (cdr l)))))
  8.        (else (cons (car l)(insertR* new old (cdr l))))))
  9.      (else (cons (insertR* new old (car l))(insertR* new old (cdr l)))))))
  10. insertR*
  11. gosh> 
  12. gosh> (insertR* 'roast 'chuck '((how much (wood)) could ((a (wood) chuck))(((chuck)))(if (a)((wood chuck))) could chuck wood))
  13. ((how much (wood)) could ((a (wood) chuck roast)) (((chuck roast))) (if (a) ((wood chuck roast))) could chuck roast wood)
  14.  
  15. (define subst*
  16.   (lambda(new old l)
  17.     (cond
  18.      ((null? l) quote())
  19.      ((atom? (car l))
  20.       (cond
  21.        ((eq? old (car l))(cons new (subst* new old (cdr l))))
  22.        (else (cons (car l)(subst* new old (cdr l))))))
  23.      (else (cons (subst* new old (car l))(subst* new old (cdr l)))))))
  24. subst*
  25. gosh> (subst* 'orange 'banana '((banana)(split((((banana ice))) (cream (banana)) sherbet))(banana)(bread)(banana brandy)))
  26.                                ((orange) (split ((((orange ice))) (cream (orange)) sherbet)) (orange) (bread) (orange brandy))
  27.  
  28.  
  29. (define insertL*
  30.   (lambda(new old l)
  31.     (cond
  32.      ((null? l) quote())
  33.      ((atom? (car l))
  34.       (cond
  35.        ((eq? old (car l))(cons new (cons old (insertL* new old (cdr l)))))
  36.        (else (cons (car l)(insertL* new old (cdr l))))))
  37.      (else (cons (insertL* new old (car l))(insertL* new old (cdr l)))))))
  38. insertL*
  39. gosh> (insertL* 'pecker 'chuck '((how much (wood)) could ((a (wood) chuck))(((chuck))) (if (a) ((wood chuck))) could chuck wood))
  40. ((how much (wood)) could ((a (wood) pecker chuck)) (((pecker chuck))) (if (a) ((wood pecker chuck))) could pecker chuck wood)
  41. gosh> 
  42.  
  43.  
  44.  
Runtime error #stdin #stdout #stderr 0.02s 50224KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
ice-9/psyntax.scm:1274:12: In procedure dobody:
ice-9/psyntax.scm:1274:12: Syntax error:
unknown location: quote: bad syntax in form quote
https://ideone.com/fPHC2z
language:
Scheme (guile 2.2.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!