約 3,622,733 件
https://w.atwiki.jp/sicpstudygroup/pages/72.html
Exercise3.57 How many additions are performed when we compute the nth Fibonacci number using the definition of fibs based on the add-streams procedure? Show that the number of additions would be exponentially greater if we had implemented (delay exp ) simply asw (lambda () exp ), without using the optimization provided by the memo-proc procedure described in section 3.5.1 add-streamプロシージャベースのfibsの定義を使用し、フィボナッチ数を計算したとき、何度加法を実行しているだろうか？memo-procを使用していなければ、指数関数的に増加していることをしめせ。 この問題を解くにあたり、gnuplotを用いて視覚的に指数関数的に増加していることを示してみた。 以下、用いたコードを記す。 注意点として、私個人のこだわりとして、SICPのコードを改変し、Gauche特有の機能を使っている。 具体的にいうと、define-class,define-methodなどである。 これらを用いたことによるメリットは、cons,car,cdrなど、通常リストで用いるプロシージャで遅延リストを扱うことができるという、ただその1点にある。 加法の実行回数を得るための具体的手法add-streamsで用いる加法を通常の+ではなく、実行後とにnum-additionを１づつ更新してゆくaddプロシージャに変更した。fibを実行後num-additionを参照すれば、何度加法が呼び出されたのかわかる、という仕組みである。 #!/usr/bin/env gosh (define-syntax delay (syntax-rules () ((delay exp ...) (lambda () exp ...)))) (define (force delayed-object) (delayed-object)) (define-class Stream () ((head init-keyword head) (tail init-keyword tail))) (define-syntax cons (syntax-rules () ((cons a b) (make Stream head a tail (delay b))))) (define-method car ((s Stream )) (ref s head)) (define-method cdr ((s Stream )) (force (ref s tail))) (define-method stream-ref ((s Stream ) (n integer )) (if (= n 0) (car s) (stream-ref (cdr s) (- n 1)))) (define (enumerate-interval low high) (if ( low high) () (cons low (enumerate-interval (+ low 1) high)))) (define-method map ((proc procedure ) (s1 Stream ) (s2 Stream )) (if (null? (car s1)) () (cons (proc (car s1) (car s2)) (map proc (cdr s1) (cdr s2))))) ;;;;;;;;;;;;;;;;;ここらへんがキモ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define num-addition 0) (define (add n m) (begin (set! num-addition (+ num-addition 1)) (+ n m))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-method add-stream ((s1 Stream ) (s2 Stream )) (map add s1 s2)) (define fibs (cons 0 (cons 1 (add-stream (cdr fibs) fibs)))) (define (how-many-addition n-th) (let* ((result (stream-ref fibs n-th)) (num-add num-addition)) (set! num-addition 0) num-add)) (define (print-amount n-th) (print n-th " " (how-many-addition n-th))) (use srfi-1) (define init-commands (list "unset border" ; 枠を表示しない "set style data line" "plot - ")) (for-each print init-commands) (for-each print-amount (iota 20 1)) 結果 ?cmd=upload act=open page=%EF%BC%93%E7%AB%A0%E3%81%AE%E7%B7%B4%E7%BF%92%E5%95%8F%E9%A1%8C%EF%BC%88%E5%89%8D%E5%8D%8A%EF%BC%89 file=amountAddition.PNG
https://w.atwiki.jp/pipohamu049/pages/25.html
ツアーリスト・BASICツアー ツアー 題名 クラス 獲得物 BASIC 01 Initiation BASIC 01 CLASS 1 BASIC 02 Drift Time BASIC 02 CLASS 1 BASIC 03 Inside Line BASIC 03 CLASS 1 まずはここからスタート。 よっぽどでなければ問題なくクリアできるはずです。 ハンドルネーム コメント
https://w.atwiki.jp/shakemid/pages/88.html
技名 ASIDEMATOI/ピルエット稲妻落とし 演技者 ASIDEMATOI/ピルエット稲妻落とし 説明 稲妻落としの投げてから玉を取るまでの間に自分が１回転する。 備考 私が６段の自由種目でやった技の１つ。 タグ ピルエット 宇宙遊泳 稲妻落とし コメント 名前
https://w.atwiki.jp/ce00582/pages/1075.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As String Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss76.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 n = 1 Open "c \psid\psid76.txt" For Input As #2 Do Until EOF(2) Line Input #2, buf data(n) = buf n = n + 1 Loop Close #2 endn = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 5) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 5) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 5) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 dname(n) = x1(m) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 dname(n) = x3(m) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 dname(n) = x5(m) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 dname(n) = x1(m) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) For n = 1 To 5069 If dname(n) = "V4301" Then nx = n Next For n = 1 To endn Debug.Print Mid(data(n), dstart(nx), dend(nx) - dstart(nx) + 1) Next End Sub
https://w.atwiki.jp/ultimateez/pages/19.html
SSID Service Set Identifier IEEE 802.11シリーズの無線LANにおけるアクセスポイントの識別子。32文字までの任意の英数字。 複数のアクセスポイントを設置したネットワークを考慮してネットワーク識別子に拡張したものをESSIDという。現在ではESSIDの意味でSSIDという語を使う場合が多い。 NW_無線LAN NW_LAN
https://w.atwiki.jp/shakemid/pages/806.html
技名 ASIDEMATOI/ダブルピルエット神風 演技者 ASIDEMATOI/ダブルピルエット神風 説明 神風（３回転宇宙遊泳）のけんを投げてから玉を取るまでにピルエットを２回入れる。 備考 撮影はこの１TAKEで終わりました。 タグ ピルエット 宇宙遊泳 神風 コメント 名前
https://w.atwiki.jp/shakemid/pages/117.html
技名 ASIDEMATOI/宇宙遊泳１回転飛行機 演技者 ASIDEMATOI/宇宙遊泳１回転飛行機 説明 宇宙遊泳の要領で投げてから玉を取り、そこから１回転飛行機。 備考 宇宙遊泳、１回転飛行機はそれぞれのページを参照してください。 タグ 宇宙遊泳 飛行機 コメント 名前
https://w.atwiki.jp/shakemid/pages/513.html
技名 ASIDEMATOI/半新宇宙遊泳うぐいす 演技者 ASIDEMATOI/半新宇宙遊泳うぐいす 説明 新宇宙遊泳と半宇宙遊泳を組み合わせ、最後にうぐいす。 備考 新宇宙遊泳、半宇宙遊泳のやり方はそれぞれのページを参照してください。 タグ うぐいす 宇宙遊泳 コメント 名前
https://w.atwiki.jp/gcui/pages/53.html
21 50 2011/06/11 mht2htmcl.exe .mhtをhtm等に展開する .emlも展開出来るみたい http //osdn.dl.sourceforge.net/project/mht2htm/mht2htm/1.7.3.15%20(16.apr.2011)/mht2htm-commandline-1.7.3.15TEST16.apr.2011.win32.zip mht2htm-1.7.3.15BETA16.apr.2011.win32.zip(GUI) はパスやファイル名に日本語が入っていると、File not found.が出る mht2htmcl 1.7.3 command line, test (16.apr.2011.) site http //pgm.bpalanka.com, mailmailto bajaatan@yahoo.com Usage mht2htmcl[.exe] [-h] [[-a 0-4 ] [-v 1-3 ] [-s ] sourcefile [-o output dir ]] where -h, --help - ヘルプを見る -a 0-4 , --addresscorrection= 0-4 - アドレス訂正のレベル (既定値 4) -v 1-3 , --verbosemode= 1-3 ,詳細な説明表示レベル(既定値 2) -s sourcefile , --sourcefile=入力ファイル -o output dir , --outputdir=出力ディレクトリ, 省略時、sourceと同じディレクトリ 例 mht2htmcl my_file.mht mht2htmcl ./my_file.mht mht2htmcl "c \my dir\my_file.mht" -o c \temp_dir mht2htmcl -a4 -v1 -s c \my_dir\my_file.mht -o c \temp_dir ワイルドカード (*) は未だサポートされていません!!! 使用例 mht2htmcl my_file.mht 展開されない exception at 00425890 File not found. mht2htmcl .\my_file.mht 展開出来る mht2htmcl ..\my_file.mht ..\my_file.mht_filesに展開される mht2htmcl.exe "..\コピー 690.mht" ..\コピ＼ 690.mht_filesに展開される mht2htmcl -a0 -v1 .\my_file.mht -o asdasd asdasdが存在しないと展開されない Output directory do not exists 存在しているとasdasd\my_file.mht_filesに展開される -a0srcの書き換えは行われず、元の位置情報のままになる -a4srcは相対パスに書き換えられる _0_start_me.htm_1_info.nfo -v1リンクのみファイル数のみ -v2ファイルの詳細ファイルの位置情報 -v3リンク付き詳細-v2と同じ 元の参照情報を見たい時は-a0 -v3 さっさと処理したい場合は-a0 -v1 資源を利用したい場合は-a2 -v2
https://w.atwiki.jp/shakemid/pages/850.html
技名 ASIDEMATOI/うぐいすの地獄めぐり 演技者 ASIDEMATOI/うぐいすの地獄めぐり 説明 大皿うぐいす、小皿うぐいす、大皿さるのこしかけ、小皿さるのこしかけを全て回ってからけん。回る順番に指定はありません。 備考 特になし。 タグ うぐいす コメント 名前