This file contains 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
// ==UserScript== | |
// @name fill library form | |
// @match https://www.meguro-library.jp/opw/OPW/OPWBOOK.CSP* | |
// ==/UserScript== | |
document.forms[0].usercardid.value = 'YOUR_ID'; | |
document.forms[0].password.value = 'YOUR_PASSWORD'; | |
document.forms[0].library.value = 3; // 3 == nakameguro ekimae |
This file contains 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
(define-class <window> () | |
(;; Pointer to the parent window. | |
(parent :init-keyword :parent :init-form *root-window*) | |
;; Sizes of the window | |
(width :init-keyword :width :init-value 1) | |
(height :init-keyword :height :init-value 1) | |
;; Position of the window relative to the parent. | |
(x :init-keyword :x :init-value 0) | |
(y :init-keyword :y :init-value 0) | |
)) |
This file contains 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
;; 第1回 Scheme コードバトン | |
;; | |
;; ■ これは何か? | |
;; Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。 | |
;; 次回 Shibuya.lisp で成果を発表します。 | |
;; Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。 | |
;; | |
;; ■ 2 つのルール | |
;; | |
;; (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。 |
This file contains 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
(heap "積み重ねた物") | |
(exploration "探査、探検") | |
(errand "使いっ走り") | |
(defect "欠点") | |
(allowance "割当量") |
This file contains 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
(library (skip graph) | |
(export node-search node-range-search node-insert! node-delete! | |
make-node node-key node-value | |
node->list node->key-list | |
max-level membership-counter | |
;; exported for test | |
buddy-op | |
link-op) | |
(import (rnrs) | |
(mosh) |
This file contains 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
(let ([server (make-server-socket "4649")]) | |
(display "Echo server: START\n") | |
(let loop ([conn (socket-accept server)]) | |
(let ([pid (spawn | |
(lambda () | |
(display "child start\n") | |
(receive | |
[('connection conn) | |
(let loop ([data (socket-recv conn 100)]) | |
(cond |
This file contains 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) | |
(mosh) | |
(mosh socket)) | |
(define (irc-bot server port nick channel) | |
(let ([socket (make-client-socket server port)]) | |
(define (send text) | |
(assert (<= (string-length text) 510)) | |
(socket-send socket (string->utf8 (string-append text "\r\n")))) | |
(define (recv) |
This file contains 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
(let ([socket (make-client-socket "www.monaos.org" "http" | |
(os-constant 'AF_INET) | |
(os-constant 'SOCK_STREAM) | |
0 | |
0)]) | |
(socket-send socket (string->utf8 "GET /index.html HTTP/1.0\r\nhost: www.monaos.org\r\n\r\n") 0) | |
(display (utf8->string (socket-recv socket 9000 0)))) |
This file contains 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) | |
(mosh) | |
(srfi :64)) | |
(define-record-type failure | |
(fields | |
(immutable expr) | |
(immutable expected) | |
(immutable actual))) |
NewerOlder