Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[04478c]: fibjap.lisp Maximize Restore History

Download this file

fibjap.lisp    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)))