代码搜索：tak
找到约 264 项符合「tak」的源代码
代码结果 264
www.eeworm.com/read/408235/11401183
scm takr.scm
;;; takr.scm
(define (tak0 x y z)
(cond ((not (< y x)) z)
(else (tak1 (tak37 (- x 1) y z)
(tak11 (- y 1) z x)
(tak17 (- z 1) x y)))))
(define (tak1 x y z)
www.eeworm.com/read/125133/6032830
idel tak.idel
def 3 1 tak
{ x y z -- y x < if
x 1 - y z tak
y 1 - z x tak
z 1 - x y tak tak
else
z
then } ;
www.eeworm.com/read/125133/6032884
idel tak.idel
def 0 1 main 27 18 9 tak u. '\n' emit 0 ;
#include "../tests/udot.idel"
#include "../tests/tak.idel"
www.eeworm.com/read/125133/6032886
times tak.times
Tue Dec 11 06:25:10 PST 2001
real 83.55
user 83.34
sys 0.00
Tue Dec 11 06:44:14 PST 2001
real 83.82
user 83.65
sys 0.02
Tue Dec 11 06:47:00 PST 2001
Command terminated by signal 2
real 7.48
user 7.49
www.eeworm.com/read/125133/6033005
idel tak.idel
def 3 1 tak
{ x y z -- y x < if
x 1 - y z tak
y 1 - z x tak
z 1 - x y tak tak
else
z
then } ;
www.eeworm.com/read/125133/6033064
idel tak.idel
def 0 1 main 27 18 9 tak u. '\n' emit 0 ;
#include "../tests/udot.idel"
#include "../tests/tak.idel"
www.eeworm.com/read/125133/6033066
times tak.times
Tue Dec 11 06:25:10 PST 2001
real 83.55
user 83.34
sys 0.00
Tue Dec 11 06:44:14 PST 2001
real 83.82
user 83.65
sys 0.02
Tue Dec 11 06:47:00 PST 2001
Command terminated by signal 2
real 7.48
user 7.49
www.eeworm.com/read/408235/11401184
scm tak.scm
;;;; tak.scm
(define (tak x y z)
(if (not (< y x))
z
(tak (tak (- x 1) y z)
(tak (- y 1) z x)
(tak (- z 1) x y) ) ) )
(time (do ((i 100 (- i 1))) ((zero? i)) (tak 18 12 6)))