yaotti's diary

Software is Eating the World

2008-04-10から1日間の記事一覧

世界のナベアツ的なもの

3の倍数と3が含まれる数のときだけpiyopiyoする。 (use srfi-1) (define (contain-tree? num) (find (cut eq? #\3 <>) (string->list (number->string num)))) (define (nabeatsu n) (map (lambda (x) (if (or (= (modulo x 3) 0) (contain-tree? x)) 'piyop…

ターミナルからtwitterへポストするgaucheスクリプト

かいた。 #!/usr/local/bin/gosh (use rfc.http) (use rfc.base64) (define (main args) (let* ((username (cadr args)) (passwd (caddr args)) (status (cadddr args)) (basic-info (string-append "Basic " (base64-encode-string (string-append username…