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?