まず今もちゃんと理解出来てないコードから (define ( expmod base exp m ) ( cond (( = exp 0 ) 1 ) (( even? exp ) ( remainder ( square ( expmod bese ( / exp 2 ) m )) m )) ( else ( remainder ( * base ( expmod base ( - exp 1 ) m )) m )))) ( define ( square x ) ( * x x )) これは素数性をテストするフェルマーテストのコードですが はっきり言って何がしたいのかさっぱり・・・w なのでgoshを使ってみました gosh> (define ( expmod base exp m ) ( cond (( = exp 0 ) 1 ) (( even? exp ) ( remainder