Latest comments replied to まさぽん

まさぽん's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

もうちょっと頑張ってみました。
実行例:
arc> (c "LL day and night")
LL Day And Night("LL" "Day" "And" "Night")

表示の「("LL" 〜」以降は prall(出力関数)の返り値なので気にしないでください。

1	(def c(x)(prall(map[do(=(_ 0)(upcase:_ 0))_](tokens x))"" " "))

[ Arc ] [ download code ] ]

匿名's comment on コインを減らす払い方

コインを減らす払い方 (Nested Flatten)

gosh> (pay-smart 14 '((1 . 12) (10 1)))
((10 . 1) (1 . 9))

(1 . 4) であってほしい。

まさぽん's comment on 立方根の計算

立方根の計算 (Nested Flatten)

指数関数使用禁止なのを忘れとった。
1 行目は
(= cube-list (map [* _ _ _] (range 1 10)))

5 行目は
  (let gosa (- rn (* cr cr cr))

ですね。

まさぽん's comment on コラッツ・角谷の問題

コラッツ・角谷の問題 (Nested Flatten)

C に移植したバージョン。
最近の gcc は、コンパイル時に -O2 を付けると末尾再帰呼び出しを最適化してくれるようですね。便利。

実行例:
$ cc -O2 -o collatz collatz.c
$ time ./collatz
n=837799, steps=524
./collatz 0.07s user 0.00s system 95% cpu 0.079 total

やはりネイティブコンパイルできる処理系は早いですね。

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define LIMIT 1048576

int solve_collatz(long n, int step, int *cache){
    if(n == 1)
        return step;
    else if(n <= LIMIT && cache[n] != 0)
        return step + cache[n];
    else if(0 == n % 2) 
        return solve_collatz(n/2, step+1, cache);
    else
        return solve_collatz(n*3+1, step+1, cache);
}

long set_doubles(long i, int *steps, int *cache){
    for(;i <= LIMIT; i *= 2, (*steps)++)
        cache[i] = *steps;
    *steps -= 1;
    return i/2;
}

int main(){
    int *cache, steps, max_steps = 0;
    long n, mc_n, max_n = 0; 

    cache = malloc((LIMIT + 1) * sizeof(int));
    if(!cache) exit(1);
    memset(cache, 0, (LIMIT + 1) * sizeof(int));

    for(n = 1; n <= LIMIT; n++){
        if(cache[n] == 0){
            steps = solve_collatz(n, 0, cache);
            mc_n = set_doubles(n, &steps, cache);
            if(max_steps < steps){
                max_n = mc_n;
                max_steps = steps;
            }
        }
    }
    printf("n=%d, steps=%d\n", max_n, cache[max_n]);
}

[ C ] [ download code ] ]

mc's comment on アルファベットの繰り上がり

アルファベットの繰り上がり (Nested Flatten)

似たような機能にはrangeがあるようです。
私も以前に自作したiotaを投稿してから気づいた
のですが…^^;

まさぽん's comment on 議席数をドント方式で

議席数をドント方式で (Nested Flatten)

ちょっと手直し。

(def donto (pool votes)
  (with (ls (let x nil (repeat (len votes) (push 0 x)) x)
          v (copy votes))
    (repeat pool
      (let i (pos (apply max v) v)
        (= (v i) (/ (votes i) (+ 1 (++ (ls i)))))))
    ls))

[ Arc ] [ download code ] ]

まさぽん's comment on 指定された日の存在する週

指定された日の存在する週 (Nested Flatten)

modified-julian-day 使えばもっとラクだったのかorz

(use srfi-19)

(define offsets-vec '#(( 1  2  3  4  5) 
                       ( 0  1  2  3  4)
                       (-1  0  1  2  3)
                       (-2 -1  0  1  2) 
                       (-3 -2 -1  0  1)
                       (-4 -3 -2 -1  0)
                       (-5 -4 -3 -2 -1)))

(define print-weekday
  (lambda (ls)
    (let* ((d (apply make-date 0 0 0 0 (reverse (cons 0 ls))))
           (mjday (date->modified-julian-day d))
           (offsets (vector-ref offsets-vec (date-week-day d))))
      (for-each (lambda (offset) 
                 (print
                  (date->string 
                   (modified-julian-day->date (+ mjday offset))
                   "~Y/~m/~d (~a)")))
                offsets))))

[ Scheme ] [ download code ] ]