struct timespecが存在する.ccファイルをC++として認識する(と思われる) __tryと__finallyがない__try1と__except1はうまいこと動かない#pragma commentは動かないws2_32とか$ curl https://raw.githubusercontent.com/ktakashi/scheme-env/master/bin/install.sh | sh $ export PATH=$HOME/.scheme-env/bin:$PATH $ scheme-env install chibi-scheme $ scheme-env switch chibi-scheme@master $ scheme-env runこれでChibi Schemeをソースからビルドしてかつ使用可能にしてくれる。ソースからビルドするので、各処理系が要求する依存関係は予めインストールされている必要がある（流石にそこまで面倒見れない）。ちなみに最初のShellスクリプト以外は全部Scheme（Sagittarius）で書かれている。
(rfc tls)でbitbucket.orgに繋げられない(append L (list ...)) となっているところは cons + reverse に書き換えられる気がする。O(n^2) が O(n) になるからかなり性能に響くはず。 https://t.co/f14prELLP7— Kei (@tk_riple) 4 January 2018
cons + reverse】cons + reverseはまぁよく使われるパターンで、この名前で呼べば大体どんなものかの想像がつくくらいだ(と思う)。ツイートで言及しているQiita記事にある手続きfをこのパターンで書き直してみた。(define (f/cons+reverse init n)
(let loop ((i 0) (r init))
(if (< i n)
(loop (+ i 1) (cons (tent_func (car r)) r))
(reverse r))))
nthが何をしているものなのかよくわからなかったが、おそらく(nth -1 L)はリストの最終要素を取り出すものと予想。(そのように実装して元の手続きを動かしたらそれっぽい値返したし。)appendがなくなるので、O(n^2)がO(n)になる。一時リストの生成が嫌ならreverse!を使えば生成されるリストもたかだか一個になる。doで以下のように書くこともできる。
(define (f/cons+reverse init n)
(do ((i 0 (+ i 1)) (r init (cons (tent_func (car r)) r)))
((= i n) (reverse r))))
どちらがいいかは好み次第。
reverseがないので保留と言われた(記憶、Twitter上で見つからん)のだが、reverseはこんな風に書ける。(define (reverse l)
(do ((l l (cdr l)) (r '() (cons (car l) r)))
((null? l) r)))
RnRS準拠の処理系なら絶対持ってるはずだが、自作の処理系だったという可能性も踏まえてみる。 (積極的に無駄な処理をするコードを直していくスタイル)unfold】unfold という手続きがある。これを使うと上記は以下のように書ける。(define (f/unfold init n)
(unfold (lambda (x) (< (car x) 0))
cdr
(lambda (x) (cons (- (car x) 1) (tent_func (cdr x))))
(cons n init)))
こっちは多少メモリ効率が悪い(シードの生成に必ずペアを作ってる)し、unfoldの使用方法が多少変則的な感はある。(append result (list ...))みたいなコードを見つけたら積極的に書き換えていきたいところである。
D = (2018, 1, 8, 0, 0, 0)だけど、これと同等のユリウス暦は2017年12月26日 D = (2017, 12, 26, 0, 0, 0)になる。更に、それぞれの calendar が時間の演算を持つというもの。例えば calendar A では一日が30時間だとすると、その calendar における日付B+1日というのは Gregorian calendar では1日と6時間を足したことになるが、この差異を calendar がよしなにしてくれるというもの。（意図を正しく理解していれば）D+1d = (y, m, d+1, H, M, S) = (y, m, d, H + 24, M, S) = ...(calendar:days->date calendar:julian 0) ;; -> D(-4714 11 24 12 0 0)タイムゾーンTZはまぁ、普通にタイムゾーンで、SRFI-19の date は D+TZ になる。
;; これはエラー (make-date 0 0 10 11 4 1 2018 #f) ;; これは常にUTC (make-date 0 0 10 11 4 1 2018 0) ;; これだと常にUTC+1:00、夏時間どうする？ (make-date 0 0 10 11 4 1 2018 3600)とりあえず全ての日付はUTC+0にして扱うという手もあるのだが、バッチ処理を日付が変わるときに行うというようなことが面倒になる。また、このSRFIには日付のみ、時間のみを扱う術がない。例えば11時15分という時間と
(make-date 0 0 15 11 0 0 0 0)は等価か？あるいは2018年1月4日は(make-date 0 0 0 0 4 1 2018 0)と等価であるかということである。答えはケースバイケースであるとは思うが、多くの場合はNoではないだろうか？+-------+ +-------+
| date | | time |
+---+---+ +---+---+
| |
+-----+-----+
|
+-----+-----+ +-------------+
| date-time | | zone-offset |
+-----+-----+ +------+------+
| |
+-------+--------+
|
+----------+----------+
| offsetted-date-time | <-- SRFI-19 dateと等価
+---------------------+
時間が常にローカル時間かというのはわからないので、offsetted-timeみたいなのもあっていいかもしれない。timeだと名前が被るから別名にする必要も有りそうだが。で、日付によらない時間(H,M,S)の演算をclockと考えよう、と思ったんですが、calendarにH,M,Sを持たせても良い気がしてきました。7時間の5倍を35時間と扱うか1日と11時間と扱うか、も同じものの表現が複数あると考えればいいし…そうするとsrfi-19 dateはcalendarのD=(y,m,d,H,M,S)の正規形+TZですね。— Shiro Kawai (@anohana) 4 January 2018
+------------+
| timezone |
+------------+
| - Offset |
+------+-----+
+------------+ |
| date | |
+------------+ |
| - timezone |<>---------+ +------------+
| - calendar |<>------------+ | date-tuple |
+------------+ | +------------+
+----------+----------+ | -(Y,M,D) |
| calendar | +-----+------+
+---------------------+ |
| - YMD: date-tuple |<>--------+
| - HmS: time-tuple |<>--------+
+---------------------+ |
+-----+------+
| time-tuple |
+------------+
| -(H,m,S) |
+------------+
calendarは演算手続きの集合にして、こうした方がいいだろうか？
+--------------+ +------------+ +------------+
| calendar | | date-tuple | | time-tuple |
+--------------+ +------------+ +------------+
| - operations | | - (Y,M,D) | | - (H,m,S) |
+------+-------+ +------+-----+ +------+-----+
| | |
| +-------------------+ | |
| | local-date | | |
| +-------------------+ | |
| | - YMD: date-tuple |<>-------------+ |
+-----------<>| - calender | |
| +-------------------+ |
| |
| +-------------------+ |
| | local-time | |
| +-------------------+ |
| | - HmS: time-tuple |<>----------------------------+
+-----------<>| - calendar |
+-------------------+
:
so on
:
どっちもしっくりこない感じがするなぁ。もう少し考える必要がありそうだ。