Data update
This commit is contained in:
parent
9817d9b99b
commit
07c7092a52
140 changed files with 2712 additions and 241 deletions
11
Task/Time-a-function/Insitux/time-a-function.insitux
Normal file
11
Task/Time-a-function/Insitux/time-a-function.insitux
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
(function measure
|
||||
(let [start result end] [(time) (... . args) (time)])
|
||||
(str result " took " (- end start) "ms"))
|
||||
|
||||
(function fib n
|
||||
(if (< n 2) n
|
||||
(+ (fib (dec n))
|
||||
(fib (- n 2)))))
|
||||
|
||||
(measure fib 35)
|
||||
;returns "9227465 took 26497ms"
|
||||
Loading…
Add table
Add a link
Reference in a new issue