ファンなら資料集は必見の価値あり。 でもゲーム自体はアーケードアーカイブスの方が良いです。 ACAC はこだわり設定(スキャンラインを再現するとか)も無いし、 バブルシステムのカウントダウンも無いし・・・。 アーケードアーカイブスと同じの収録したらハ…

寝不足のまま続きを考えましたｗ (define (iter-3 ans rests rests1 count) (if (null? rests) count (iter-3 ans (cdr rests) rests1 (let ((x (car rests))) (+ count (iter-2 (append ans (cons x nil)) x (remove x rests1))))))) (define (iter-2 ans n…

個数だけ求めるなら、これで十分ですかね。 (define (iter-2 ans num rests) (if (null? rests) (if (check ans) 1 0) (if (not (check ans)) 0 (apply + (map (lambda (x) (iter-2 (append ans `(,x)) x (remove x rests))) rests))))) (define (iter num c…

数式を少し改良しました。 (define (sort-sum-values lis) (let ((num (apply + (filter number? lis))) (vals (filter symbol? lis))) (if (= num 0) (sort vals) (append `(,num) (sort vals))))) (define (sort-product-values lis) (let ((num (apply * …

ja.stackoverflow.com暇なので解いてみた。 (define nil '()) (define (enumerate-interval low high) (if (> low high) nil (cons low (enumerate-interval (+ low 1) high)))) (define (accumulate op initial seq) (if (null? seq) initial (op (car seq)…

今回の改元は、御委譲であって、 天皇陛下が崩御なさるわけではないので、 とにかく目出度いわけですよ！自粛とかしなくて言い訳です。 もろ手を上げて万歳三唱できるのですよ。 休暇中は毎日国旗を掲揚して、 (うちの近所は左翼だらけ*1なので掲揚するのは…

逆行列を計算するプログラムです。まず共通処理から。 (define nil '()) (define *stack* nil) (define level-ratio 100) (define (last-pushed) (if (empty?) nil (car *stack*))) (define (after-popped) (if (empty?) nil (cdr *stack*))) (define (init)…

お絵かきロジックを、より人間らしく解く！とは言っても、普通の人間には簡単にできる ・解法を自ら学習する ・新たな解法を発見する とかは出来ません。というか、そんなのが出来たら怖いです。人類を敵と見做して核攻撃とかしそう！ 人形ロボットを作って…

数独を解く問題。Euler Project 問題 96 と同じです。まず、問題をスクラッチバッファで加工して sudoku_p97.txt を作ります。 ファイルの中身はこんな感じ。未確定の部分は 0 にします。 Grid 01 004800017 670900000 508030004 300740100 069000780 001069…

8クイーン問題*1です。1. 普通な実装 (define nil '()) (define (enumerate-interval low high) (if (> low high) nil (cons low (enumerate-interval (+ low 1) high)))) (define (filter predicate sequence) (cond ((null? sequence) nil) ((predicate (c…

人間が解くみたいにプログラムで解くの面倒くっさいーーーーーｗｗｗｗｗ 「nonograms」でググってもほとんど何も出てきませんが、 「お絵かきロジック」でググると色々と出てきます。 Lisp で配列処理するのは面倒くっさくて、 やる気が萎え萎えで捗らない…

問題 P98 は言葉で説明するのが難しいので、問題(英語)を読んでください。 https://www.ic.unicamp.br/~meidanis/courses/mc336/2006s2/funcional/L-99_Ninety-Nine_Lisp_Problems.htmlなお、P90 の 8クイーン問題は、SICP の問 2.42 *1 で、P97 の数独問題…

年度始めすぐは、なにかと暇なので勉強が捗っちゃうねーｗ 2 3 5 7 11 から等式を作って正しい計算結果になる式をリストアップしなさい。 例として、2-3+5+7 = 11 とか 2 = (3*5+7)/11 があるよ。(あと 10 個ある。) という問題。まずは汎用手続き (define n…

たまにはプログラミングの話題でも書きますか。L-99 の p70 です。p70 は既出なので、「d」を付けました。 (あちこちの問題で間違いがあるような気がします。元は Prolog の問題集なので仕方ないかな。意味がよくわからないものもあります。) a f g ^ ^ c ^ …

新元号が発表されましたね。 来月１日から令和元年。 最近は電子マネーで支払いする事が多くて、 なかなか現金でお釣りをもらうことが少なくなりました。 いつ「令和元年」と刻印された硬貨が自分の 財布にやってくるか楽しみですｗ