mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-19 05:39:17 +02:00
71 lines
2 KiB
Scheme
71 lines
2 KiB
Scheme
;;;; Cyclone Scheme
|
|
;;;; https://github.com/justinethier/cyclone
|
|
;;;;
|
|
;;;; Copyright (c) 2014-2016, Justin Ethier
|
|
;;;; All rights reserved.
|
|
;;;;
|
|
;;;; The cxr library from r7rs.
|
|
;;;;
|
|
(define-library (scheme cxr)
|
|
(export
|
|
caar
|
|
cadr
|
|
cdar
|
|
cddr
|
|
caaar
|
|
caadr
|
|
cadar
|
|
caddr
|
|
cdaar
|
|
cdadr
|
|
cddar
|
|
cdddr
|
|
caaaar
|
|
caaadr
|
|
caadar
|
|
caaddr
|
|
cadaar
|
|
cadadr
|
|
caddar
|
|
cadddr
|
|
cdaaar
|
|
cdaadr
|
|
cdadar
|
|
cdaddr
|
|
cddaar
|
|
cddadr
|
|
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))))))
|
|
;; Non-standard, this is just a placeholder
|
|
(define (caaaaar lis)
|
|
(car (car (car (car (car lis))))))))
|