なにはともあれ、遊び相手といったら彼だ。

なんで、こんなにいい男にいい相手がいないんだろう。
文字どおり十年ぶりに野球をした。大人はたまにキャッチボールをすべきだと思った。
(define-syntax tag-case
(syntax-rules (else)
((_ e0 (else e2 e3 ...)) (begin e2 e3 ...))
((_ e0 (e1 e2 e3 ...)) (if (equal? e0 e1) (begin e2 e3 ...)))
((_ e0 (e1 e2 e3 ...) c1 c2 ...)
(if (equal? e0 e1) (begin e2 e3 ...) (tag-case e0 c1 c2 ...)))))
(define (tagged-line-filter tagged-line)
(let ((tag (car tagged-line))
(str (cadr tagged-line)))
(tag-case tag
('column (column-filter str))
('verbatim (verbatim-filter str))
('table (table-filter str))
('numbered (numbered-filter str))
('itemized (itemized-filter str))
('enumerate (enumerate-filter str))
(else (default-filter str)))))
(define dice6
(make-probability-space
(list 1 2 3 4 5 6)
(lambda (w) (/ 1 6))))
dice6
=>
((1 . 0.16666666666666666) (2 . 0.16666666666666666) (3 . 0.16666666666666666)
(4 . 0.16666666666666666) (5 . 0.16666666666666666) (6 . 0.16666666666666666))
(define (even-pv w)
(if (even? w) 1 0))
((lead-distribution even-pv) dice6)
=> ((0 . 0.5) (1 . 0.5))
(variance dice6)
=> 2.9166666666666665
(variance ((lead-distribution even-pv) dice6))
=> 0.25
hisashim:mapcan おもしろいよな
shikano:破壊的ですよ
hisashim:いいんだよ、zip のフラットなのができるから
(compose (curry #'apply #'nconc) #'mapcar)
(define (my-mapcan fn . ls)
(apply append (apply map fn ls)))
##
#
##
#
#
## ## # # ### ###
# # # ## # # ## #
## ## # #
# # ## ##
# # # ## # # ## #
# # ## ## ### ###
(define (distinct? sets)
(= (length (apply lset-union = sets))
(* (length sets) (length (car sets)))))
(define (get-distinct-n set n)
(combinations-for-each
(lambda (s)
(if (distinct? s)
(begin (display s) (newline))))
set
n))
(get-distict-n valid-list 9)