Entries from 2015-01-01 to 1 month

素数を法とした原始根を求めるプログラム

素数pを法とした剰余環の乗法群(位数p-1)は巡回群になります。その巡回群の生成元のことを「素数pを法とした原始根」といいます。原始根の存在を予想したのはオイラーですが、存在の証明をしたのはガウスです。この証明は難しくて(じっくり考えれば追えるレ…

append2の定義

3通り書いてみた。 (define (append2 lis1 lis2) (if (pair? lis1) (cons (car lis1) (append2 (cdr lis1) lis2)) lis2)) (define (append22 lis1 lis2) (define (append22-sub lisa lisb) (if (null? lisa) lisb (append22-sub (cdr lisa) (cons (car lisa)…

「x^p(pは素数)=eかつx^r=e(1

証明 x!=eと仮定すると G={e, x, ... , x^(q-1)}は位数q(1

この関数が好き! tree-walk

(define (tree-walk walker proc lis) (walker (lambda (elm) (if (list? elm) (tree-walk walker proc elm) (proc elm))) lis)) walkerにfor-eachとかmapを入れて、procにprintとかを入れちゃう。lisには入れ子になったリストを入れちゃおう。

日高普「経済学」メモ7

★資本とは、増殖を求める価値の運動体である →持ち手を変えるという意味ではなく、姿を変えるという意味での運動■商人資本 G-W-G'(G'>G) →偶然の機会にめぐまれなければ、利潤を得ることができない■金貸資本 G・・・G'(G'>G) →貨幣の借り手は商人資本だが、…