plaster

(use srfi-42)
(use math.prime)

(define (solve N)
  (let* [[v (make-vector N)]
         [%%solve (^ (n k) (let [[x (vector-ref v k)]
                                 [y (vector-ref v (- n k 1)) ]]
                             (max (+ x y) (* x y))))]
         [%solve (^ (n) (if (zero? n) 1
                          (max-ec (: k n) (%%solve n k))))]

plaster

試行回数: 10万回

	EVERY	ANY
25%	9	1
50%	13	2
75%	19	3
90%	26	5
99%	43	10
99.9%	60	15

plaster

FINISHED --2018-04-18 05:48:59--
Total wall clock time: 2m 38s
Downloaded: 435 files, 1.7G in 2m 21s (12.3 MB/s)
ル╹ヮ╹ルɔ cymbal:/mnt/hgfs/MIKA/plaster/mod-diary-2018-04-16/pdfs
% file *.pdf | sed -e 's/.*://' | sort | uniq -c
    175  PDF document, version 1.3
    260  PDF document, version 1.4
ル╹ヮ╹ルɔ cymbal:/mnt/hgfs/MIKA/plaster/mod-diary-2018-04-16/pdfs
% wc -l ../pdf-list.txt
435 ../pdf-list.txt

plaster

(use srfi-27)
(use util.match)

(define (play-out n N x)
  ;; x times trial
  ;; n species to get
  ;; N species supplied
  (let1 C (- (ash 1 n) 1)  ;; 1111... [n times]
    (let loop [[ c 0 ]
               [ x x ]

plaster

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Policies\Microsoft\Windows\WindowsUpdate\AU]
"NoAutoRebootWithLoggedOnUsers"=dword:00000001

plaster

ル╹ヮ╹ルɔ jolokia:~
% (yes | tee /tmp/yes.txt | while read; do sleep 1; done) &
[1] 303
ル╹ヮ╹ルɔ jolokia:~
% while true; do sleep 1; ls -lh /tmp/yes.txt; done        
-rw-r--r-- 1 plaster plaster 64K Dec 22 02:20 /tmp/yes.txt
-rw-r--r-- 1 plaster plaster 64K Dec 22 02:20 /tmp/yes.txt
-rw-r--r-- 1 plaster plaster 64K Dec 22 02:20 /tmp/yes.txt
-rw-r--r-- 1 plaster plaster 64K Dec 22 02:20 /tmp/yes.txt
-rw-r--r-- 1 plaster plaster 64K Dec 22 02:20 /tmp/yes.txt

plaster

screen の -U を複数回指定してしまったとき

(WIP)

とある事情から .screenrc と .zshrc をスクラッチで書き直したところ、 「screen を再アタッチするときだけマルチバイト文字の表示が壊れる」というヘンテコな現象に遭遇してしまいました。

https://twitter.com/plaster/status/801431121082748928

plaster

if test $1 = $2; then echo '='; else echo '!='; fi
if test "$1" = "$2"; then echo '='; else echo '!='; fi
if [ $1 = $2 ]; then echo '='; else echo '!='; fi
if [ "$1" = "$2" ]; then echo '='; else echo '!='; fi

plaster

use strict;
use warnings;
no warnings 'recursion';

my @coins = qw( 500 100 50 10 5 1 );
my %freq = map { $_ => 0 } @coins;

sub emit_freq() {
    print join(' + ', map {
        sprintf('%d x %d', $_, $freq{$_})

plaster

grep_2.25-6

[ plaster@cymbal:/tmp/debian-tutorial-exercise-1 ]
% dget http://ftp.debian.org/debian/pool/main/g/grep/grep_2.25-6.dsc
dget: retrieving http://ftp.debian.org/debian/pool/main/g/grep/grep_2.25-6.dsc
--2016-08-20 16:55:02--  http://ftp.debian.org/debian/pool/main/g/grep/grep_2.25-6.dsc
ftp.debian.org (ftp.debian.org) をDNSに問いあわせています... 130.89.148.12
ftp.debian.org (ftp.debian.org)|130.89.148.12|:80 に接続しています... 接続しました。
HTTP による接続要求を送信しました、応答を待っています... 200 OK
長さ: 1969 (1.9K)