#! /usr/local/bin/sash (set-macro-character #\! (lambda (p c) (read-delimited-list #\$ p))) ! import ! srfi :1 $ $ ! fold ! lambda ! x y $ ! print ! - x 1 $ "!= " y $ ! * x y $ $ 1 ! iota ! string->number ! cadr ! command-line $ $ $ 2 $ $まぁ、ある意味当たり前だが、括弧8個でいける。
#/regex/と書ける様にしてみた。こんな感じ。
#<(sagittarius regex) (import (sagittarius regex)) (define rx #/\w+/) (print (regex-replace-all rx "abcdef@abcdef" "**$0**"))もちろん
#/regex/ixumsのようにも書ける。watch *0x{上記で調べたアドレス}最初、丁寧にキャストして実行したらGDBが終わらなかった。キャストせずに上記のように打つとハードウェアウォッチポイントになるらしく、実行がすごく速かった。っで、たどり着いた先はBoehmGCのmalloc。。。どうしろと？
(add-dynamic-load-path "./build")
(add-load-path "./sitelib")
(load-dynamic-library "sagittarius--regex2")
(load-dynamic-library "sagittarius--regex")
(import (rnrs)
(time)
(srfi :13) (srfi :1))
(define bench
'(begin
(define-syntax bench-regex
(syntax-rules ()
((_)
(begin
(define rx
(compile-regex "[-_.0-9A-Za-z]+@[-_0-9A-Za-z]+[-_.0-9A-Za-z]+" 0))
(define (repeat s c) (string-concatenate (make-list c s)))
(define s (repeat "abcdefgh" 500))
(define m (regex-matcher rx s))
(define times 20)
(time (do ((i 0 (+ i 1))
(r (regex-replace-all m " ")
(regex-replace-all m " ")))
((= i times) r)))))))
(bench-regex)))
(let ((args (command-line)))
(if (= (length args) 2)
(cond ((string=? (cadr args) "old")
(eval bench
(environment '(sagittarius regex impl) 'user)))
((string=? (cadr args) "new")
(eval bench
(environment '(sagittarius regex2 impl) 'user)))
(else
(error 'command-line "unknown option")))
(print "usage: test2.scm old|new")))
で、結果。
$ time ./build/sash -D./build test2.scm old ;; 9.964000 real 9.890000 user 0.000000 sys ./build/sash -D./build test2.scm old 10.06s user 0.03s system 99% cpu 10.176 total $ time ./build/sash -D./build test2.scm new ;; 0.013000 real 0.015000 user 0.000000 sys ./build/sash -D./build test2.scm new 0.19s user 0.00s system 96% cpu 0.193 totalPikeさんパネェっす。
| 英語 | 米語 | 自然だと感じる方 |
|---|---|---|
| colour | color | color |
| labour | labor | labour |
| behaviour | behavior | 両方OK |
| favour | favor | 両方OK |
| favourite | favorite | favourite |
| centre | center | center |
| theatre | theater | 両方OK |
\D(?!123)っで、"ABC123"を与えた場合、文字「C」にマッチしなければいけないが、マッチしない。また、パターンが
\D*(?!123)になると無限ループする。(ほとんど出来て無いじゃん！)
Genius sorting algorithm: Sleep sort
1 Name: Anonymous : 2011-01-20 12:22
Man, am I a genius. Check out this sorting algorithm I just invented
#!/bin/bash
function f() {
sleep "$1"
echo "$1"
}
while [ -n "$1" ]
do
f "$1" &
shift
done
wait
example usage:
./sleepsort.bash 5 3 6 3 6 3 1 4 7
2 Name: Anonymous : 2011-01-20 12:27
>>1
Oh god, it works.
But I don't like to wait 218382 seconds to sort '(0 218382)
3 Name: Anonymous : 2011-01-20 12:31
>>2
yes the worst case is very big
まぁ、要素ごとにスレッドを止めて終わった順に値を表示するだけ。(library (sleep-sort)
(export sleep-sort)
(import (rnrs)
(srfi :1)
(srfi :18))
(define (sleep-sort lst)
(let* ((new (list '()))
(threads (map (lambda (e)
(unless (integer? e)
(assertion-violation 'sleep-sort
"integer required but got" e))
(make-thread (lambda ()
(thread-sleep! e)
(append! new (list e))
e)))
lst))
(r (map thread-start! threads)))
(map thread-join! r)
(cdr new))))
こんな感じで使う
(import (sleep-sort)) (print (sleep-sort '(5 4 6 2 8 9))) ;; => (2 4 5 6 8 9)上記のコメントにもある通り、最悪時間(というか計算時間？)は要素内の最大値になるので、馬鹿でかい数値だと10分くらい返ってこないとか普通にありえるので要注意。(ソートが終わらないから仕事ができないという言い訳にはなるけどｗ)
for import keyword will be ignored. And because of this, (could be because of my insufficient skill), Sagittarius' syntax-case can not compromise a few R6RS requirements.(library (test)
(export test)
(import (rnrs))
(define *inner-value* #f)
(define *inner-value2* #f)
(define (test)
(and (begin (set! *inner-value* #t))
(begin (set! *inner-value2* '())))
(display *inner-value*)(display *inner-value2*)(newline))
)
In this case, (I actually did not check if it does mark wrongly or not) *inner-value2* will be marked as inlinable, so the compiler inline it as #f. This is the problem. As you can see, it has to be '().;; 定義 (define hello (lambda (name) (string-append "hello, " name))) ;; or (define (hello2 name) (string-append "hello, " name))
;; 定義 (def hello (fn [name] (str "hello, " name))) ;; or (defn hello2 [name] (str "hello, " name))特に何も書く必要はないだろうというくらいよく似ている。[]は引数だけど、ベクターのリードマクロでもある。
defnは構文ではなくマクロだそうだ。 あと、defnはデフォルトでSchemeでいうcase-lambda仕様になっている。
;; 名前付let
(define (factorial n)
(let loop ((cnt n)
(acc 1))
(if (zero? cnt)
acc
(loop (- cnt 1) (* acc cnt)))))
;; 名前付let
;; なんてものはないのでloopとrecurを使う
(defn factorial [n]
(loop [cnt n acc 1]
(if (zero? cnt)
acc
(recur (dec cnt) (* acc cnt)))))
loop構文は多分letのバインド方式だと思う。Clojureではletは括弧が一つでよくて、順に変数名、初期値、以下続くという感じになる。Schemeに慣れているとちょっと混乱しそうになる。今日の面接。「もし給料が支払われなかったらどうする？」私が必ず訊く質問だ。目をキラキラさせて「構いません！」と叫ぶ人は合格。少しでも戸惑う奴。そんな奴とはプライベートでも口を聞きたくない！さっさと立ち去れ！「論外ですね」が僕の答えになるだろうなぁ。もしくは何も言わずに立ち去るか。
typedef struct tree_map_rec
{
int type; /* CかSchemeか*/
union {
struct {
int (*insert)(struct tree_map_rec *tree, node_t *node);
/* so on */
} c_procs;
struct {
/* scheme procs on C object*/
} scheme_procs;
} impl;
} tree_map;
問題になりそうなのはnode_tの定義か？まぁ、とりあえずintptr_tの別名にして、実装毎に適当に定義してキャストすればOKだろうか？comp.lang.scheme で簡単なリスト操作のお題が出ておるな。 http://goo.gl/5GAmっでやってみた。
(import (rnrs) (rnrs mutable-pairs))
(define (acons k v r) (cons (cons k v) r))
(define (process-labeled-list lst)
(let loop ((lst lst)
(ans '()))
(if (null? lst)
(map cdr (list-sort (lambda (p1 p2) (< (car p1) (car p2)))
ans))
(cond ((assv (caar lst) ans)
=> (lambda (slot)
(set-cdr! slot (append (cdr slot) (cdar lst)))
(loop (cdr lst) ans)))
(else
(loop (cdr lst) (acons (caar lst)
(cdar lst)
ans)))))))
(process-labeled-list '((0 a b) (1 c d) (2 e f) (3 g h) (1 i j)
(2 k l) (4 m n) (2 o p) (4 q r) (5 s t)))
set-cdr!を使うのは卑怯だろうか？(define a (car '(a b c))) ;; コンパイラは'aをaに定義する。
(define-constant a (car '(a b c))) ;; carはコンパイル時に計算される(可能なら)
(define (test)
(print a))
(disasm test)
;; size: 5
;; 0: CONST_PUSH a <-- シンボルaがそのまま渡されている
;; 2: GREF_TAIL_CALL(1) #<identifier print#user(0x5fd1e0)> ;; print
;; 4: RET
(library (inner)
(export const-value)
;; define-constant は(sagittarius)ライブラリにて提供
(import (sagittarius))
(define-constant const-value 10)
)
(library (test)
(export test2)
(import (rnrs)
(inner))
(define a (+ 1 2 3)) ;; a はexportされていない
(define (test2)
(display a)
(display const-value)
(newline))
)
(import (test))
(disasm test2)
;; size: 13
;; 0: FRAME 4
;; 2: CONSTI_PUSH(6) <-- 計算された後の定数になっている
;; 3: GREF_CALL(1) #<identifier display#|(test)|(0x73d018)> ;; display
;; 5: FRAME 4
;; 7: CONSTI_PUSH(10) <-- GREF const-valueではない
;; 8: GREF_CALL(1) #<identifier display#|(test)|(0x73efa8)> ;; display
;; 10: GREF_TAIL_CALL(0) #<identifier newline#|(test)|(0x73ef30)> ;; newline
;; 12: RET
ま、まずまずでしょう。Gambitのベンチマークにはなんら影響が出ないところが多少以上に悲しいが。(あれらはR6RSのライブラリを使ってないから、最適化がかからん)((section (@ (tag "tag1") (number "1")) "Section 1") (subsection (@ (tag "tag1.1") (number "1.1")) "Subsection 1.1") (subsection (@ (tag "tag1.2") (number "1.2")) "Subsection 1.2") (section (@ (tag "tag2") (number "2")) "Section 2") (subsection (@ (tag "tag2.1") (number "2.1")) "Subsection 2.1") (subsubsection (@ (tag "tag2.1.1") (number "2.1.1")) "Subsection 2.1.1") (sub*section (@ (tag "tag2.1.1.1") (number "2.1.1.1")) "Subsection 2.1.1.1") (section (@ (tag "tag3") (number "3")) "Section 3"))期待される出力
(div (@ (id "G137") (class "table-of-contents"))
(ul (@ (class "section"))
(li (@ (class "section"))
(a (@ (href "#tag1"))
(span (@ (class "section-number")) "1")
"Section 1")
(ul (@ (class "sub-section"))
(li (@ (class "sub-section"))
(a (@ (href "#tag1.1"))
(span (@ (class "section-number")) "1.1")
"Section 1.1"))
(li (@ (class "sub-section"))
(a (@ (href "#tag1.2"))
(span (@ (class "section-number")) "1.2")
"Section 1.2"))))
(li (@ (class "section"))
(a (@ (href "#tag2"))
(span (@ (class "section-number")) "2")
"Section 2")
(ul (@ (class "sub-section"))
(li (@ (class "sub-section"))
(a (@ (href "#tag2.1"))
(span (@ (class "section-number")) "2.1")
"Section 2.1")
(ul (@ (class "sub-sub-section"))
(li (@ (class "sub-sub-section"))
(a (@ (href "#tag2.1.1"))
(span (@ (class "section-number"))
"2.1.1")
"Section 2.1.1")
(ul (@ (class "sub-sub-sub-section"))
(li (@ (class "sub-sub-sub-section"))
(a (@ (href "#tag2.1.1.1"))
(span (@ (class "section-number"))
"2.1.1.1")
"Section 2.1.1.1"))))))))
(li (@ (class "section"))
(a (@ (href "#tag3"))
(span (@ (class "section-number")) "3")
"Section 3"))))
単にulとliで構成されたリストにちょっとしたhtmlのメタ情報が入ったものといった感じ。これが結構てこずった。;; sxml toolsをふんだんに使ってます。
(define *section-classes*
'((section . "section")
(subsection . "sub-section")
(subsubsection . "sub-sub-section")
(sub*section . "sub-sub-sub-section")))
(define (content-list-handler element)
(define (process contents)
(define (li-gen content class)
(let* ((attrs (sxml:attr-list-node content))
(tag (cond ((assq 'tag attrs) => cadr)))
(section (cond ((assq 'number attrs) => cadr)
(else
(assertion-violation 'li-gen
"section is not defined" content)))))
`((li (@ (class ,class))
(a (@ (href ,(format "#~a" tag)))
(span (@ (class "section-number")) ,section)
,@(map phase2/dispath (sxml:content content)))))))
(define (ul-gen class)
`(ul (@ (class ,class))))
(define (rec contents generator top)
(let loop ((contents contents)
(r top))
(if (null? contents)
r
(let ((content (car contents)))
(let-values (((class depth) (generator content)))
(let loop ((i 0)
(r r))
(if (= i depth)
(cond ((and (zero? i) ;; top
(eq? (car r) 'ul))
(append! r (li-gen content class)))
(else
(let ((tail (car (list-tail r (- (length r) 1)))))
(cond ((eq? (car tail) 'ul)
(append! tail (li-gen content class))
r)
(else
(let ((ul (ul-gen class)))
(append! ul (li-gen content class))
(if (eq? (car tail) 'li)
(append! tail (list ul))
(append! r (list ul)))
r))))))
(loop (+ i 1)
(let((rr (car (list-tail r (- (length r) 1)))))
(if (eq? (car rr) 'li)
rr
(car (list-tail rr (- (length rr) 1))))))))
(loop (cdr contents) r))))))
(define (section-generator element)
(define len (length *section-classes*))
(define sections (map car *section-classes*))
(cond ((assq (car element) *section-classes*)
=> (lambda (slot)
(let ((name (car slot))
(class (cdr slot)))
(values class (- len (length (memq name sections)))))))
(else
(assertion-violation 'section-generator
"unknown tag" element))))
;; assume first one is section
(rec contents section-generator (ul-gen "section")))
(let* ((contents (*table-of-contents*))
(attr (sxml:attr-list-node element))
(id (cond ((and attr (assq 'id attr)) => cadr)
(else (symbol->string (gensym))))))
`(div (@ (id ,id)
(class "table-of-contents"))
,(process contents))
)
)
リストの作成を破壊的に行っているので、なんとなく反則技を使っている気分。いい点は、*section-classes*に追加のサブセクションを足せば簡単にネストできることか。4つ以上サブセクションが要るドキュメントなんて読みたくないが・・・
A library definition takes the following form:これってこんな風に書けるってこと？
(define-library <library name>
<library declaration> ... )
<library name> is a list whose members are identifiers or unsigned exact integers that is used to identify the library uniquely when importing from other programs or libraries. Libraries whose first identifier is scheme are reserved for use by this report and future versions of this report. Libraries whose first identifier is srfi are reserved for libraries implementing Scheme Requests for Implementation.
A <=<library declaration> may be any of:
- (export <export spec> ... )
- (import <import set> ... )
- (begin <command or definition> ... )
- (include <filename1> <ilename2> ... )
- (include-ci <filename1> <filename2> ... )
- (cond-expand <cond-expand clause> ... )
(define-library (test) (begin (define a 'a)) (import (scheme base)) (export a) )リファレンス実装(だと思われる)chibi-schemeで試してみたが、どう動かすのかまったく分からん。 まぁ、この程度の違いならマクロで吸収できるなぁ・・・(いろいろ面倒な部分もあるので)R7RS対応にするかは分からないけど。
(import (sagittarius regex)
(srfi :1)
(srfi :13)
(rnrs))
(define format.6f
(lambda (x)
(let* ((str (number->string (/ (round (* x 1000000.0)) 1000000.0)))
(pad (- 8 (string-length str))))
(if (<= pad 0)
str
(string-append str (make-string pad #\0))))))
(define-syntax time
(syntax-rules ()
((_ expr)
(let-values (((real-start user-start sys-start) (time-usage)))
(let ((result (apply (lambda () expr) '())))
(let-values (((real-end user-end sys-end) (time-usage)))
(let ((real (format.6f (- real-end real-start)))
(user (format.6f (- user-end user-start)))
(sys (format.6f (- sys-end sys-start))))
(format #t "~%;; ~a real ~a user ~a sys~%" real user sys)
(flush-output-port (current-output-port))))
result)))))
(define (time-this runs thunk)
(time
(do ((i 0 (+ i 1)) (r (thunk) (thunk)))
((= i runs)))))
(define rx1 (regex "[-_.0-9A-Za-z]+@[-_0-9A-Za-z]+[-_.0-9A-Za-z]+"))
(define (regex-test rx text runs)
(display (string-length text))
(time-this runs (lambda () (regex-replace-all rx text " "))))
(define (repeat s c) (string-concatenate (make-list c s)))
(print rx1)
(regex-test rx1 (repeat "abcdefgh" 10) 20)
(regex-test rx1 (repeat "abcdefgh" 50) 20)
(regex-test rx1 (repeat "abcdefgh" 100) 20)
(regex-test rx1 (repeat "abcdefgh" 500) 20)
(regex-test rx1 (repeat "abcdefgh" 1000) 20)
結果は散々であった。以下結果。(Core2Duo 3GHz)#いやぁ、速くはないだろうなぁとは思っていたが、ここまで遅いとは。80 ;; 0.005000 real 0.000000 user 0.000000 sys 400 ;; 0.100000 real 0.110000 user 0.000000 sys 800 ;; 0.400000 real 0.375000 user 0.000000 sys 4000 ;; 9.965000 real 9.937000 user 0.000000 sys 8000 ;; 39.94300 real 39.70300 user 0.000000 sys
(import (dbi)) ;; とりあえず組み込みでODBCをサポート。 ;; 他に標準になっているデータベースアクセス方式があったらサポートするかも。 (define conn (dbi-connect "dbi:odbc:server=XE" :username "username" :password "password")) ;; プレースホルダーに直接値を渡せる (let ((query (dbi-prepare conn "select * from a_table where id >= ?" 10000))) ;; (dbi-bind-parameter query 1 10000) ;; こう書いてもOK (dbi-execute! query) ;; 実行自体は何も返さない。 (print (dbi-fetch-all! query))) ;; dbi-fetch!なら一行返す。なければ#f (dbi-close conn)直接ODBCのAPIを叩くよりははるかに楽。SQLのDATE型とかは(DBDの実装依存なので、組み込みのODBCではだけど)srfi-19の日付型に変換して、BLOBや長いテキストはポートで返す(現状の実装だと結局全部読み込むのであまり意味はないが、そうするべきという意味合いで)。
(import (odbc))
;; DSNはODBCの設定でつけた名前
(define dsn "TEST")
(define env (create-odbc-env))
;; 今回はCSVなのでユーザー名、パスワードは要らない。
;; Oracleなどに接続する際は必要になる
(define dbc (connect! env dsn "" ""))
;; もちろんプレースホルダーも使える
(define stmt (prepare dbc "select STREET from [ken_all_rome.csv] where CODE > ? and CODE < ?"))
(bind-parameter! stmt 1 23203)
(bind-parameter! stmt 2 23205)
(execute! stmt)
;; 警告レベルの例外を投げたりするので、with-exception-handlerで囲む必要がある。
(with-exception-handler
(lambda (e)
(report-error e))
(lambda ()
;; fetch!は行が取得できたかどうかを返す while (fetch(stmt)) ... なイメージ
(let loop ((next? (fetch! stmt)))
(when next?
;; 現状では列名では取得できない。この辺は改善の余地あり。
(let ((col1 (get-data stmt 1)))
(print col1)
(loop (fetch! stmt)))))))
;; 接続解除
(disconnect! dbc)
基本的にはDBDの低レベルAPIな位置づけなので、あまり高機能にする必要もないのだが、Prepared Statement(日本語訳しらない)に束縛された値のリセット機能はいれてもいいかもしれない。あと、DBD用に結果列名の取得とかも。;; GABRIEL ;; boyer (x3) ;; 0.664000 real 0.610000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; browse (x120) ;; 6.073000 real 6.031000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; cpstak (x80) ;; 0.969000 real 0.969000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; ctak (x25) ;; 2.972000 real 2.953000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; dderiv (x160000) ;; 1.307000 real 1.297000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; deriv (x320000) ;; 2.092000 real 2.078000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; destruc (x100) ;; 1.514000 real 1.500000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; diviter (x200000) ;; 1.698000 real 1.703000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; divrec (x140000) ;; 1.307000 real 1.312000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; puzzle (x12) ;; 0.619000 real 0.625000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; takl (x35) ;; 0.704000 real 0.703000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; triangl (x1) ;; 0.677000 real 0.672000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; ARITHMETIC ;; fft (x200) ;; 0.419000 real 0.422000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; fib (x1) ;; 1.542000 real 1.547000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; fibc (x50) ;; 0.994000 real 0.984000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; fibfp (x1) ;; 5.692000 real 5.610000 user 0.047000 sys ;; ---------------------------------------------------------------- ;; mbrot (x10) ;; 1.676000 real 1.656000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; nucleic (x1) ;; 1.211000 real 1.188000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; pnpoly (x10000) ;; 0.639000 real 0.641000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; sum (x1000) ;; 0.360000 real 0.359000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; sumfp (x600) ;; 1.162000 real 1.157000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; tak (x200) ;; 0.592000 real 0.593000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; MISCELLANEOUS ;; conform (x4) ;; 0.842000 real 0.844000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; earley (x20) ;; 0.366000 real 0.375000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; graphs (x15) ;; 0.572000 real 0.562000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; mazefun (x100) ;; 0.566000 real 0.563000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; nqueens (x150) ;; 0.354000 real 0.344000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; paraffins (x100) ;; 0.616000 real 0.625000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; peval (x20) ;; 0.949000 real 0.938000 user 0.000000 sys ;; ---------------------------------------------------------------- ;; ray (x1) ;; 1.656000 real 1.610000 user 0.046000 sys ;; ---------------------------------------------------------------- ;; scheme (x3000) ;; 0.852000 real 0.844000 user 0.000000 sys ;; ----------------------------------------------------------------browse及びfibfpが遅いが他はまずまず。ctakは改善前から4秒速くなってるので劇的に良くなったといえるだろう。
;; GABRIEL
;; boyer (x3)
;;4.444999933242798 real 4.406 user 0.0 sys
;; ----------------------------------------------------------------
;; browse (x120)
;;5.337000131607056 real 5.327999999999999 user 0.0 sys
;; ----------------------------------------------------------------
;; cpstak (x80)
;;1.5829999446868896 real 1.5630000000000006 user 0.0 sys
;; ----------------------------------------------------------------
;; ctak (x25)
;;5.3460001945495605 real 5.311999999999999 user 0.0 sys
;; ----------------------------------------------------------------
;; dderiv (x160000)
;;2.8910000324249268 real 2.875 user 0.0 sys
;; ----------------------------------------------------------------
;; deriv (x320000)
;;2.3340001106262207 real 2.2970000000000006 user 0.0 sys
;; ----------------------------------------------------------------
;; destruc (x100)
;;1.9910001754760742 real 2.0 user 0.0 sys
;; ----------------------------------------------------------------
;; diviter (x200000)
;;2.055999994277954 real 2.0470000000000006 user 0.0 sys
;; ----------------------------------------------------------------
;; divrec (x140000)
;;1.4830000400543213 real 1.4529999999999994 user 0.0 sys
;; ----------------------------------------------------------------
;; puzzle (x12)
;;1.0709998607635498 real 1.0779999999999994 user 0.0 sys
;; ----------------------------------------------------------------
;; takl (x35)
;;0.9110000133514404 real 0.907 user 0.0 sys
;; ----------------------------------------------------------------
;; triangl (x1)
;;0.9219999313354492 real 0.9060000000000024 user 0.0 sys
;; ----------------------------------------------------------------
;; ARITHMETIC
;; fft (x200)
;;1.8899998664855957 real 1.8119999999999976 user 0.0 sys
;; ----------------------------------------------------------------
;; fib (x1)
;;1.7780001163482666 real 1.75 user 0.0 sys
;; ----------------------------------------------------------------
;; fibc (x50)
;;1.7349998950958252 real 1.7040000000000006 user 0.0 sys
;; ----------------------------------------------------------------
;; fibfp (x1)
;;8.138999938964844 real 7.780999999999999 user 0.0 sys
;; ----------------------------------------------------------------
;; mbrot (x10)
;;3.375999927520752 real 3.344000000000001 user 0.0 sys
;; ----------------------------------------------------------------
;; nucleic (x1)
;;1.9010000228881836 real 1.8590000000000018 user 0.0 sys
;; ----------------------------------------------------------------
;; pnpoly (x10000)
;;0.7100000381469727 real 0.7029999999999959 user 0.0 sys
;; ----------------------------------------------------------------
;; sum (x1000)
;;0.4719998836517334 real 0.45300000000000296 user 0.0 sys
;; ----------------------------------------------------------------
;; sumfp (x600)
;;1.9199998378753662 real 1.9059999999999988 user 0.0 sys
;; ----------------------------------------------------------------
;; tak (x200)
;;0.7339999675750732 real 0.7349999999999994 user 0.0 sys
;; ----------------------------------------------------------------
;; MISCELLANEOUS
;; conform (x4)
;;0.009999990463256836 real 0.015000000000000568 user 0.0 sys
;; wrong result: ("(b ^ d)" "c" "(a ^ c)" "d" "any" "none")
;; ----------------------------------------------------------------
;; earley (x20)
;;2.930999994277954 real 2.9070000000000036 user 0.0 sys
;; ----------------------------------------------------------------
;; graphs (x15)
;;2.378000020980835 real 2.3429999999999964 user 0.0 sys
;; ----------------------------------------------------------------
;; mazefun (x100)
;;0.8310000896453857 real 0.8290000000000006 user 0.0 sys
;; ----------------------------------------------------------------
;; nqueens (x150)
;;0.6979999542236328 real 0.6869999999999976 user 0.0 sys
;; ----------------------------------------------------------------
;; paraffins (x100)
;;1.2379999160766602 real 1.2340000000000018 user 0.0 sys
;; ----------------------------------------------------------------
;; peval (x20)
;;1.0770001411437988 real 1.0790000000000006 user 0.0 sys
;; ----------------------------------------------------------------
;; ray (x1)
;;3.0359997749328613 real 3.0 user 0.015 sys
;; ----------------------------------------------------------------
;; scheme (x3000)
;;1.5360000133514404 real 1.531000000000006 user 0.0 sys
;; ----------------------------------------------------------------
正直moshより速くなったと言っても問題ない気がしてきた。browseが少し負けてるか。何でだろう？boyerの桁が違うのはmoshはdisplay closureを使ってるので名前付letのループがきついのだろう。(import (rnrs)) (define (tak x y z) (if (not (< y x)) y (tak (tak (- x 1) y z) (tak (- y 1) z x) (tak (- z 1) x y)))) (let ((args (command-line))) (let ((n (string->number (cadr args)))) (tak (* n 2) n 0)))
<view-state id="state1" > <transition on="trans1" to="trans2" / > </view-state> <action-state id="trans2" > <!-- do something --> <render fragments="frag1" /> </action-state>Ajaxを使っている場合は状態遷移を起こすとレスポンスがおかしなことになるっぽい。上記のは単にtransitionタグに入れてやればいいんだけど、似たような処理を一箇所にまとめるということができない。見事にはまった。
(import (crypto) (sagittarius control)) (define des-key (string->utf8 "8bytekey")) ;; DES鍵は8バイト (define des-cipher (cipher DES des-key :mode MODE_CBC :iv (make-bytevector 8 0))) ;; :ivはCBCモードでは必須 ;; その他:padder :rounds :ctr-modeがキーワードとしてある。必要になりそうなのは:padderとMODE_CTRを指定した際の:ctr-modeかな。 (let1 enc (encrypt des-cipher (string->utf8 "test message")) ;; encは上記のDES鍵で暗号化されたbytevector (display (utf8->string (decrypt des-cipher enc))))こんな感じで使える。cipherが使いまわせるのはJavaと同じ感じにしたため。一度作成すると鍵の交換が現在できないけど、必要そうなら入れるかも。
EM = EMSA-PSS-ENCODE(M, modeBits - 1)EMのOctet長はmodBits - 1が8で割り切れる場合は、kより1小さく、そうでないならばkと等しい。もしエンコーディング処理が"message too long,"を返したら、"message too long"を出力し停止する。"encoding error"についても同様に処理する。
m = OS2IP(EM)
s = RSASP1(K, m)
S = I2OSP(s, k)
M' = (0x)00 00 00 00 00 00 00 00 || mHash || saltM'は長さ8 + hLen + sLenで、先頭から8OctetがゼロのOctet文字列。
For counter = 0; counter > maskLen/hlen - 1; counter++
- counterを長さ4のOctet文字列に変換
- 種mgfSeedのハッシュとCのハッシュをTに連結
T = T || Hash(mgfSeed || C).