うーん

最近はホロライブのころさん（戌神ころねさん）を単推ししているのですが、すいちゃん（星街すいせいさん）の誕生日ライブの事でなんか炎上しているんだとか・・・。少し前にはみこち（さくらみこさん）の復帰ライブでも炎上してたとか・・・。まじかよ・・…

2024-03-23

問題141 Scheme での実装例

Scheme Project Euler

Scheme で書いてみた。ロジックは先日書いた通りで、単にプログラムを起こしただけです。 (define (problem-141 limit) (let ((lim (expt limit (/ 1 4)))) (define (iter-k q p k sum) (let ((nn (* (+ (* k p p p) q) k q))) (if (>= nn limit) sum (iter-…

2024-03-20

問題141を解く(その2)

Project Euler CPP プログラミング

解法のひとつです。幾何数列に着目するってもの考えたんだけどなあ。いまいち無理でしたｗ幾何数列「a, ca, c^2 a」における比率を「c」とします。 gcd(p, q) == 1 の場合、c は p/q と書くことができます。したがって、n^2 == c^3*a^2 + a がわかります…

2024-03-19

問題141をやってみた

Project Euler CPP プログラミング

メインから。時間を計るので、ちょいゴタゴタしてます。 1兆までなのでかなり時間がかかります。いえ、力技コードなので処理時間は気にしてないですｗ #include <iostream> #include <chrono> int main() { long long limit = 1000000000000; std::chrono::system_clock::tim</chrono></iostream>…

2024-03-16

整数の三乗根を誤差なしで求める

プログラミング C#

三乗根は Math 標準ライブラリの Pow を使って double val = Math.Pow((double)number, 1.0 / 3.0) こんな風に求められるけれども、number が整数のときはこれでは誤差が出るので使い物にならない。なのでプログラムを自分で書く！呼び出し側。最近の .NET …

2024-03-09

約数を求める(完全版)

プログラミング Scheme

(define nil '()) (define (gen-primes limit) (let ((v (make-vector (+ limit 1) 1))) (define (set-not-prime! ini-idx) (define (iter i) (if (> i limit) 'done (begin (vector-set! v i 0) (iter (+ i ini-idx))))) (iter (* ini-idx 2))) (define (in…

2024-03-09

約数を求める

プログラミング Scheme

(define nil '()) (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (uniq set) (define (iter x s) (if (null? x) s (iter (cdr x) (if (element-of-set? (car x) s) s …