Skip to content

Instantly share code, notes, and snippets.

Shen, copyright (C) 2010-2015 Mark Tarver
www.shenlanguage.org, Shen 20.1
running under Java, implementation: Java
port 0.2.1 ported by Tatsuya Tsuda
(0-) (cd "shen/test")(load "README.shen")(load "tests.shen")
"shen/test/"
reset
test-harness.exec-macro
test-harness.rcons
$ rlwrap java -Xms200m -Xmx2g -Xss4m -jar shen-jvm-0.1.0.jar
Shen, copyright (C) 2010-2015 Mark Tarver
www.shenlanguage.org, Shen 20.1
running under Java, implementation: Java
port 0.1.0 ported by Tatsuya Tsuda
(0-) (cd "shen/test")(load "README.shen")(load "tests.shen")
"shen/test/"
@otabat
otabat / shen-defun-function-call-count.txt
Created April 27, 2017 18:38
Number of function calls for Shen defun function from program start to test suite end
12602491 element?
6960375 shen.pvar?
3535830 shen.lazyderef
3378725 fail
2390069 shen.compose
2087153 shen.deref
2073332 shen.occurs?
1900416 <-address/or
1716707 assoc
1513336 do
@otabat
otabat / shen-c-test-result.txt
Created April 18, 2017 03:37
Shen-C test result
$ make repl
bin/shen-c
Shen, copyright (C) 2010-2015 Mark Tarver
www.shenlanguage.org, Shen 19.3.1
running under C, implementation: C
port 0.1 ported by Tatsuya Tsuda
(0-) (cd "test/shen")
@otabat
otabat / create_vector.clj
Created December 12, 2012 00:33
ClojureコレクションからVector生成についてのベンチマーク
(time (dotimes [i 1000] (vec (range 100000))))
; "Elapsed time: 25342.116 msecs"
; => nil
;;Transient使った場合
(time (dotimes [i 1000] (into [] (range 100000))))
; "Elapsed time: 14881.906 msecs"
; => nil