[04478c]: fibjap.lisp  Maximize  Restore  History

Download this file

10 lines (8 with data), 345 Bytes

1
2
3
4
5
6
7
8
9
;;; Famous フィボナッチ (FIB) Benchmark with Japanese characters
(defun fib (x)
(labels ((フィボナッチ (n)
;; Standard definition
(cond ((= n 0) 0)
((= n 1) 1)
(t (+ (フィボナッチ (1- n)) (フィボナッチ (- n 2)))))))
(フィボナッチ x)))

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks