/usr/share/zenlisp/isort.l is in zenlisp 2013.11.22-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ; zenlisp example program
; By Nils M Holm, 1998-2007
; See the file LICENSE for conditions of use.
; Sort a list using insertion sort:
; (require '~nmath)
; (isort > '(#1 #3 #0 #2 #4)) => '(#4 #3 #2 #1 #0)
(require 'insert)
(define (isort p a)
(Letrec
((sort
(lambda (a r)
(cond ((null a) r)
(t (sort (cdr a)
(insert p (car a) r)))))))
(sort a ())))
|