;;;-*- Mode:LISP; Package:BENCH-TAK; Base:10; source-optimizations:t -*-
;;; From the "Dick Gabriel" Benchmark Series.
;;; Enhancements (C) Copyright 1983, Lisp Machine, Inc.

;;;BEGIN
;;;TAK

(declare 
 #-LISPM (FIXNUM (tak fixnum fixnum fixnum)))

(defun tak (x y z)
       (cond ((not (< y x))	;xy
	      z)
	     (t (tak (tak (1- x) y z)
		     (tak (1- y) z x)
		     (tak (1- z) x y))))) 

;(include "timer.lsp")

(timer timit 
	(tak 18. 12. 6.))

(timer nc-timit (tak 10018. 10012. 10006.))
;;;END