Skip to content

Instantly share code, notes, and snippets.

View plaster's full-sized avatar

Haruka Kai plaster

9 followers · 13 following
  • Tokyo
View GitHub Profile
@plaster
plaster / pm.scm
Created July 10, 2021 10:26
https://twitter.com/kyasmt/status/1413786372628914178
(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
plaster / gacha.md
Last active March 20, 2020 16:26
1/8のガチャに3つほしいものがあるとき「コンプするまで」vs「1個でもあたるまで」の回数のシミュレーション

試行回数: 10万回

EVERY ANY
25% 9 1
50% 13 2
75% 19 3
90% 26 5
99% 43 10
99.9% 60 15
@plaster
plaster / gist:6e49c7a24624442ddbef2c5b05e86c38
Created April 17, 2018 20:51
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
plaster / gacha.scm
Last active March 18, 2018 16:18
チョコエッグ16種のうち残り4種をコンプしたいんだけどいくつ買ったらどのくらいの確率でコンプできるか
(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
plaster / windows10-home-64bit-no-auto-reboot.reg
Last active January 14, 2017 19:38
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Policies\Microsoft\Windows\WindowsUpdate\AU]
"NoAutoRebootWithLoggedOnUsers"=dword:00000001
@plaster
plaster / tee_pipe.txt
Last active December 21, 2016 17:38
tee pipe
ル╹ヮ╹ルɔ 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
plaster / README.md
Last active December 4, 2016 09:29
screen: display&window encoding / settings&options

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

(WIP)

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

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

@plaster
plaster / testtest.sh
Last active November 15, 2016 03:38
testtestb.sh, testtest_{3,4}.txt: Thanks to @hio
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
plaster / coins.pl
Last active October 24, 2016 17:49
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
plaster / packaging-tutorial exercise 1
Created August 20, 2016 08:28
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)