Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #346 from extrasharp/master

Browse source 
Fix (scheme cxr) definitions
This commit is contained in:
Justin Ethier 2019-12-02 12:42:43 -05:00 • committed by GitHub
commit fe27947cd0
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 29 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
scheme/cxr.sld
View file

@ -37,35 +37,35 @@
cdddar
cddddr
caaaaar)
(begin
(define (caar lis) (car(car(lis))))
(define (cadr lis) (car(cdr(lis))))
(define (cdar lis) (cdr(car(lis))))
(define (cddr lis) (cdr(cdr(lis))))
(define (caaar lis) (car(car(car(lis)))))
(define (caadr lis) (car(car(cdr(lis)))))
(define (cadar lis) (car(cdr(car(lis)))))
(define (caddr lis) (car(cdr(cdr(lis)))))
(define (cdaar lis) (cdr(car(car(lis)))))
(define (cdadr lis) (cdr(car(cdr(lis)))))
(define (cddar lis) (cdr(cdr(car(lis)))))
(define (cdddr lis) (cdr(cdr(cdr(lis)))))
(define (caaaar lis) (car(car(car(car(lis))))))
(define (caaadr lis) (car(car(car(cdr(lis))))))
(define (caadar lis) (car(car(cdr(car(lis))))))
(define (caaddr lis) (car(car(cdr(cdr(lis))))))
(define (cadaar lis) (car(cdr(car(car(lis))))))
(define (cadadr lis) (car(cdr(car(cdr(lis))))))
(define (caddar lis) (car(cdr(cdr(car(lis))))))
(define (cadddr lis) (car(cdr(cdr(cdr(lis))))))
(define (cdaaar lis) (cdr(car(car(car(lis))))))
(define (cdaadr lis) (cdr(car(car(cdr(lis))))))
(define (cdadar lis) (cdr(car(cdr(car(lis))))))
(define (cdaddr lis) (cdr(car(cdr(cdr(lis))))))
(define (cddaar lis) (cdr(cdr(car(car(lis))))))
(define (cddadr lis) (cdr(cdr(car(cdr(lis))))))
(define (cdddar lis) (cdr(cdr(cdr(car(lis))))))
(define (cddddr lis) (cdr(cdr(cdr(cdr(lis))))))
(begin
(define (caar lis) (car(car lis)))
(define (cadr lis) (car(cdr lis)))
(define (cdar lis) (cdr(car lis)))
(define (cddr lis) (cdr(cdr lis)))
(define (caaar lis) (car(car(car lis))))
(define (caadr lis) (car(car(cdr lis))))
(define (cadar lis) (car(cdr(car lis))))
(define (caddr lis) (car(cdr(cdr lis))))
(define (cdaar lis) (cdr(car(car lis))))
(define (cdadr lis) (cdr(car(cdr lis))))
(define (cddar lis) (cdr(cdr(car lis))))
(define (cdddr lis) (cdr(cdr(cdr lis))))
(define (caaaar lis) (car(car(car(car lis)))))
(define (caaadr lis) (car(car(car(cdr lis)))))
(define (caadar lis) (car(car(cdr(car lis)))))
(define (caaddr lis) (car(car(cdr(cdr lis)))))
(define (cadaar lis) (car(cdr(car(car lis)))))
(define (cadadr lis) (car(cdr(car(cdr lis)))))
(define (caddar lis) (car(cdr(cdr(car lis)))))
(define (cadddr lis) (car(cdr(cdr(cdr lis)))))
(define (cdaaar lis) (cdr(car(car(car lis)))))
(define (cdaadr lis) (cdr(car(car(cdr lis)))))
(define (cdadar lis) (cdr(car(cdr(car lis)))))
(define (cdaddr lis) (cdr(car(cdr(cdr lis)))))
(define (cddaar lis) (cdr(cdr(car(car lis)))))
(define (cddadr lis) (cdr(cdr(car(cdr lis)))))
(define (cdddar lis) (cdr(cdr(cdr(car lis)))))
(define (cddddr lis) (cdr(cdr(cdr(cdr lis)))))
;; Non-standard, this is just a placeholder
(define (caaaaar lis)
(car (car (car (car (car lis))))))))