=>

function plus_curried(x){ return y => x + y; } function brooks(f, list){ return is_null(list) ? f : brooks(f(head(list)), tail(list)); } function brooks_curried(list){ return brooks(head(list), tail(list)); } brooks_curried(list(brooks_curried, list(plus_curried, 3, 4))); brooks_curried(list(brooks_curried, list(brooks_curried, list(plus_curried, 3, 4)))); 두 문장 모두 7로 평가된다.

function last_pair(items){ return is_null(tail(items)) ? items : last_pair(tail(items)); } 꼬리를 돌려주면서 꼬리의 꼬리가 null이면 그대로 꼬리를 반환한다.

function make_point(x, y){ return pair(x, y); } function x_point(p){ return head(p); } function y_point(p){ return tail(p); } function make_segment(start, end) { return pair(start, end) } function start_segment(s){ return head(s); } function end_segment(s){ return tail(s); } function midpoint_segment(s){ return make_point( x_point(start_segment(s))+x_point(end_segment(s))/2, y_point(start_segmen..

function abs(x){ return x 0 ? pair(abs(n), abs(d)) : n < 0 ? pair(n, d) : pair(-n, abs(d)); }

function compose(f, g){ return x=> f(g(x)); }

function double(f){ return x => f(f(x)); } function inc(x){ return x+1; } double(double(double))(inc)(5)//21 double이 3번 적용되므로 함수는 16번 실행된다

function cubic(a, b, c) { return x => cube(x) + a * square(x) + b * x + c; }

function cont_frac(n, d, k){ function frac(x){ return x > k ? : 0 ? n(x) / ( d(x) + frac(x+1) ); } return frac(1); } function tan_cf(x, k){ return cont_frac(i => i === 1 ? x : x * x, i => 2i - 1, k ) }

const tolerance = 0.0001; function abs(x){ return x > 0 ? x : -x; } function fixed_point(f, first_guess) { function close_enough(x, y) { return abs(x - y) math_log(1000..

const tolerance = 0.0001; function abs(x){ return x > 0 ? x : -x; } function fixed_point(f, first_guess) { function close_enough(x, y) { return abs(x - y) 1 + 1/x, 1.0);