Electrodynamics的博客

原创 Racket/Scheme解24点游戏, 初版

函数式编程真好用, 优化是啥, 能吃么2333 #lang racket (define (co sym number) (cons sym number)) (define (get_sym s) (if (number? s) s (car s))) (define (get_number s) (if (number? s) s (cdr s))) (define (gen f a b) (co (list (cond ((eq?