齊藤敦志 SaitoAtsushi
SaitoAtsushi
/ ypub.hs
Created
May 17, 2013 13:28
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- -*- mode: haskell; coding: utf-8 -*- | |
| -- Author: SAITO Atsushi | |
| import Network.HTTP | |
| import Data.Maybe | |
| import Text.Regex | |
| import Control.Monad | |
| import Data.Sequence (unfoldr) | |
| import Data.Foldable (toList) | |
| import Data.Word |
SaitoAtsushi
/ gist:5883956
Created
June 28, 2013 11:08
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html xmlns="http://www.w3.org/1999/xhtml"> | |
| <head> | |
| <title>test</title> | |
| <script type="text/javascript"> | |
| function setHandler() { | |
| var tgt = document.getElementById('triangle'); | |
| tgt.addEventListener('mouseover', function(e) { | |
| tgt.style.background='red'; | |
| }); | |
| tgt.addEventListener('mouseout', function(e) { |
SaitoAtsushi
/ gist:6162989
Created
August 6, 2013 09:12
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; gauche bug case | |
| (import (scheme base)) | |
| (cond-expand | |
| ((library (srfi 1)) | |
| (import (prefix (srfi 1) srfi-1:)) | |
| )) | |
| (cond-expand |
SaitoAtsushi
/ gist:6163282
Created
August 6, 2013 09:57
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;;CRC32 bench | |
| (import (scheme base)) | |
| (cond-expand | |
| ((library (rfc zlib)) | |
| (import (prefix (rfc zlib) zlib:)))) | |
| (cond-expand | |
| (gauche (import (gauche time))) |
SaitoAtsushi
/ crc32.sls
Last active
December 20, 2015 21:39
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!r6rs | |
| (library (crc32) | |
| (export crc32) | |
| (import (rnrs) | |
| (rnrs arithmetic bitwise (6))) | |
| (define (crc32 data . opt) | |
| (let ((r (get-optional opt #xFFFFFFFF)) | |
| (len (bytevector-length data)) |
SaitoAtsushi
/ websocket.scm
Created
August 15, 2013 22:32
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (use rfc.uri) | |
| (use rfc.base64) | |
| (use rfc.sha) | |
| (use rfc.tls) | |
| (use math.mt-random) | |
| (use binary.io) | |
| (use binary.pack) | |
| (use gauche.uvector) | |
| (use gauche.collection) |
SaitoAtsushi
/ parsing.diff
Created
August 20, 2013 11:41
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Index: src/parsing.sch | |
| =================================================================== | |
| --- src/parsing.sch (リビジョン 6659) | |
| +++ src/parsing.sch (作業コピー) | |
| @@ -29,14 +29,31 @@ | |
| ; n defaults to 1000, and input defaults to "nboyer.sch". | |
| ; | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| - | |
| -(import (rnrs base) |
SaitoAtsushi
/ gauche-bench.diff
Created
August 22, 2013 04:36
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Index: bench | |
| =================================================================== | |
| --- bench (リビジョン 6659) | |
| +++ bench (作業コピー) | |
| @@ -44,13 +44,13 @@ | |
| KVW_BENCHMARKS="ack array1 string sum1 cat cat2 cat3 tail wc" | |
| -IO_BENCHMARKS="read0 read1 read2 read3" | |
| +IO_BENCHMARKS="read1 read2 read3" |
SaitoAtsushi
/ websocket.scm
Created
August 28, 2013 16:39
Sagittarius で WebSocket 通信をするスクリプト。
Sagittarius 0.4.8.1 では wss に繋ぐことは出来ず…。
(おそらく make-client-tls-socket が Server Name Indication に非対応のため)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (import (rnrs) | |
| (rnrs io ports) | |
| (math random) | |
| (scheme time) | |
| (rfc base64) | |
| (math hash) | |
| (rfc uri) | |
| (rfc tls) | |
| (srfi :13 strings) |
SaitoAtsushi
/ sagittarius-bench.diff
Created
September 1, 2013 06:56
R6RS 向けベンチマーク (http://www.larcenists.org/benchmarks2009.html) を sagittarius で動かすためのパッチ
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Index: bench | |
| =================================================================== | |
| --- bench (リビジョン 6659) | |
| +++ bench (作業コピー) | |
| @@ -1,4 +1,4 @@ | |
| -#! /usr/bin/env bash | |
| +#!/usr/bin/env bash | |
| # For running R6RS benchmarks. | |
| # |