scheme 矩阵运算

基于表：less ( define ( accumulate op init seq )    ( cond        [ ( null? seq ) init ]       [ else          ( op ( car seq )              ( accumulate op init ( cdr seq ) ) ) ] ) ) ( define ( accumulat

>>阅读原文<<