/usr/share/zenlisp/hyper.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.
; Compute A hyperN B:
; (hyper '#4 '#3 '#3) => '#7625597484987
; A, B, and N must all be natural.
(require '~nmath)
(define (hyper n a b)
(cond ((equal n '#0) (+ '#1 a))
((equal n '#1) (+ a b))
((one b) a)
((equal n '#2) (* a b))
((equal n '#3) (expt a b))
((equal n '#4) (expt a (hyper n a (- b '#1))))
((> n '#4) (hyper (- n '#1) a (hyper n a (- b '#1))))))
|