タグ

yukkyに関するSixeightのブックマーク (3)

  • modの世界 - snow-bellの日記

    まず今もちゃんと理解出来てないコードから (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

    modの世界 - snow-bellの日記
  • ニュートン法 - snow-bellの日記

    分からないままに来ていたニュートン法を勉強し直しました 例えば平方根を求める関数を考えた時に かつであるような のように定義出来ます けれどもこれは数学の関数なので実数を入れても求めたい数が出てこないのです gosh> (define ( sqrt x ) (the y ( and ( >= y 0 ) ( = ( square y ) x )))) (define ( square y ) ( * y y ))sqrt gosh> square gosh> ( sqrt 9 ) *** ERROR: unbound variable: y Stack Trace: このコードを見ても分かるように数学的記述とプログラミングの記述では 記述方法が異なるのです この場合はyの値を明確にしてないので処理が出来ないのですね ではプログラミングで平方根を計算してみる場合はどうするのかと言うと ニュー

    ニュートン法 - snow-bellの日記
  • 始めて仕様書を読んだ日 - snow-bellの日記

    金曜日の夜の事ですが ふとした事であるヒトに除数の探索の勉強について その後どうなったのかという内容の事を聞かれました その時にid:nyaxtさんがSICPのircを教えてくれました nyaxtさんのブログにも書いてあるのですがこちらでも告知しちゃいます☆ SICPのオンライン勉強会を金曜夜22:00~24:00まで、定期的に開催しています。 興味のある方は、いきなりでいいので、IRCのチャンネルまでお越し下さい。 #sicp-seminar-online @ irc.freenode.net ログは公開しています:http://irc.nyaxtstep.com/sicp 詳しくはこちらhttp://d.hatena.ne.jp/nyaxt/20080630#1214829553 最初はnyaxtさんのustを見ていたのですが見ていてもよく分からないので 自分のSICPの復習や予習をし

    始めて仕様書を読んだ日 - snow-bellの日記
  • 1