pazworld’s gists

pazworld / elebubo.sed

Last active December 28, 2015 15:39

「異星の電光掲示板」をsedで(横へな15) ref: http://qiita.com/pazworld/items/ff45058501299089c198

	# 16進数→2進数
	s/0/0000/g
	s/1/0001/g
	s/2/0010/g
	s/3/0011/g
	s/4/0100/g
	s/5/0101/g
	s/6/0110/g
	s/7/0111/g
	s/8/1000/g

pazworld / showpiximg_iphone.js

Last active December 28, 2015 11:59

Bookmarklet to show deleted images in pix page.

javascript:var e,i,p,u,m,k="1e100.link/";e=document.getElementsByTagName("a");for(i=0;i<e.length;i++){u=e[i].getAttribute("href");if(u&&u.indexOf(k)>=0){e[i].setAttribute("href",u.replace(k,""));}if(u&&u.match(/jpg|jpeg|png|gif/i)){e[i].setAttribute("target","_blank");}if(u&&u.indexOf("amazon.jp/")>=0){e[i].firstChild.style.border="dashed 2px red";}}e=document.getElementsByTagName("i");for(i=0;i<e.length;i++){if((e[i].textContent=="DELETED")||(e[i].textContent=="CHECKING")){p=e[i].parentNode;u=p.getAttribute("href");m=document.createElement("img");p.appendChild(m);m.setAttribute("src",u.replace("newpage:",""));m.style.border="solid 1px yellow";}};

pazworld / subpalin.erl

Created November 16, 2013 02:00

「回文の発掘」をErlangで(横へな15参考) ref: http://qiita.com/pazworld/items/f8d7e7f9c7a29e9b38ab

	-module(subpalin).
	-compile(export_all).

	%% 解く
	solve(Data) -> integer_to_list(palinnum(Data)).

	%% 回文の最大長を返す
	palinnum([]) -> 0;
	palinnum(L) -> lists:max([palinnum2(S) \|\| S <- tailcombi(L)]).

pazworld / cutstics.erl

Last active December 27, 2015 18:19

「棒を切る」をErlangで ref:http://www.itmedia.co.jp/enterprise/articles/1002/06/news001_3.html

	%% トップクラスだけが知る「このアルゴリズムがすごい」 - 「探索」基礎最速マスター
	%% http://www.itmedia.co.jp/enterprise/articles/1002/06/news001_3.html

	-module(cutsticks).
	-compile(export_all).

	%% 最大試行回数
	-define(MAXTRIALS, 100).

	%% 解く

pazworld / sleepmonster.erl

Last active December 24, 2015 21:19

「眠れるモンスターを狩る」をErlangで(横へな14) ref: http://qiita.com/pazworld/items/b93f1a7a84ebadf22ab4

	-module(sleepmonster).
	-compile(export_all).

	%% 武器・モンスター対応表 {武器, 倒せるモンスター, 得られる武器}
	table() -> [{$a, $B, $c}, {$c, $D, $e}, {$e, $F, $g},
	{$g, $H, $i}, {$i, $J, $k}, {$k, $L, $a}].

	%% 解く
	solve(Data) ->
	Arms = lists:usort([X \|\| X <- Data, X > $Z]), % 小文字のみ集める

pazworld / crosscircle.erl

Created October 4, 2013 03:53

「円周上のCrossing」をErlangで(横へな14参考) ref: http://qiita.com/pazworld/items/a6a29d5d95200c0379b7

	-module(crosscircle).
	-compile(export_all).

	%% 解く
	solve(Data) ->
	integer_to_list(solve([{X, 0} \|\| X <- Data], 0)).

	solve([], Total) ->
	Total;
	solve([{FirstChar, _} \| Rest], Total) ->

pazworld / blocktub.erl

Created September 7, 2013 06:14

「積み木の水槽」をErlangで(横へな13) ref: http://qiita.com/pazworld/items/6a43a085fba30c584a9f

	-module(blocktub).
	-compile(export_all).

	%% 問題を解く
	solve(Data) ->
	integer_to_list(pit_count([Digit - $0 \|\| Digit <- Data])).

	%% 窪みの数を計算する
	pit_count(Data) ->
	Max = lists:max(Data), % 壁の最大高さ

pazworld / file0.txt

Created August 27, 2013 01:55

「増やす減らす二倍する」をCASL IIで(横へな13参考) ref: http://qiita.com/pazworld/items/c7e31e73af1ef33c5b4a

	UPDOWN START TEST ;TESTからスタートする

	;解くルーチン
	;GR1=値, GR2=カウンタ, GR0=戻り値
	SOLVE OR GR1,DC0 ;値が0ならカウンタ値を返す
	JNZ NOT0
	LAD GR0,0,GR2
	RET
	NOT0 CPL GR1,DC3 ;値が3ならカウンタ値に3を加えて返す
	JNZ NOT3

pazworld / updown.erl

Last active December 21, 2015 11:59

「増やす減らす二倍する」をErlangで(横へな13参考) ref: http://qiita.com/pazworld/items/aea5a92b0825f7e3072d

	-module(updown).
	-compile(export_all).

	solve(Data) ->
	integer_to_list(op_count(list_to_integer(Data), 0)).

	%% 結果が1か3になるまで2で割るか1を増減し、その回数を返す
	op_count(1, Count) -> Count + 1;
	op_count(3, Count) -> Count + 3;
	op_count(Num, Count) ->

pazworld / auto_backup.cmd

Last active December 21, 2015 05:18

BunBackupを使ったバックアップスクリプト。このスクリプトファイルのショートカットを作成し、実行時サイズを「最小化」に設定して、ファイルのフルパスをWindowsのタスクスケジューラに登録する。

	@echo off

	rem 名前
	rem 自動バックアップ.cmd - BunBackupを使って自動バックアップをする

	rem 書式
	rem 自動バックアップ.cmd

	rem 説明
	rem BunBackupを使って自動バックアップを実行する。

pazworld pazworld