February 2012
4 posts
第１回クラウド勉強会、クラウドコンピューティングの未来形、サーバレス・プログラミング、EXAGEN,... →
Learn you some Erlang for great good! — Learn you... →
Erlang に興味を持った人へ - Twisted Mind →
無料で聴けて、もう作業用BGMに困らない。ミュージックビデオを次々に流してループしてくれる個人的に超オ... →
January 2012
3 posts
数論初歩 →
Kaggle, we're making data science a sport →
Watchkomaneco:
画面上にある無数の四角のどれか一つをクリック。次に別の四角をクリック。1時間くらいこれで遊べそうな気がする。
December 2011
4 posts
Prologとつき合う - Yet Another Ranha →
coinduction について
Clean2.4 is available for Windows, Linux and... →
簡潔データ構造超入門VI ～これまでのまとめと集合の簡潔構造～ - EchizenBlog-Zwei →
Ordered List is a GitHubber - GitHub →
November 2011
7 posts
“Algorithms
by S. Dasgupta, C.H. Papadimitriou, and U.V. Vazirani
This is a...”
– Book
Jean-Christophe Filliâtre : Programming →
データマイニングで使われるトップ10アルゴリズム - iAnalysis ～おとうさんの解析日記～ →
ifttt / Put the internet to work for you. →
On Lisp →
丈夫なシステムについて - レジデント初期研修用資料 →
API | Tumblr →
October 2011
5 posts
パラメトロン計算機: 因数探し →
OCaml →
“情報と通信のハイパーテキスト
直感的理解を優先しています。数式を必要最小限にするため、定理などの証明は省いています。”
– index
クラスタリングの定番アルゴリズム「K-means法」をビジュアライズしてみた - てっく煮ブログ →
経路探索アルゴリズムの「ダイクストラ法」と「A*」をビジュアライズしてみた - てっく煮ブログ →
September 2011
10 posts
パラメトロン計算機 →
Dancing Links - Wikipedia, the free encyclopedia →
Knuth's Algorithm X - Wikipedia, the free... →
Exact cover - Wikipedia, the free encyclopedia →
やさしいFunctional reactive programming（概要編） -... →
ホームページ案内 / Homepage Guide →
人工知能学会 (The Japanese Society for Artificial... →
私のブックマーク ： 簡潔データ構造 →
Rを使えるようになるための10のこと - Issei’s Analysis ～おとうさんの解析日記～ →
Codeforces →
August 2011
8 posts
「最強最速アルゴリズマー養成講座」最新記事一覧 - ITmedia Keywords →
Spaghetti Source - 各種アルゴリズムの C による実装 →
“１章
パスカルの三角形、二項定理、Catalan数(‘97/07/07)
２章
Pell方程式と連分数展開(‘97/06/16)
３章
分...”
– 『無限に連なる格子』
API | Tumblr →
高校生のための微分幾何 →
多重量化を克服せよ →
“結合法則すごいよ！分配法則すごいよ！という話をしました。
もちろんこれ以外にも応用は山ほどあって、たとえば3Dグラフィックスで使う
変換の同次座標表現...”
– d.y.d.
“このWikiは、PKU Judge Onlineという、プログラミングの問題集の問題文を和訳するWikiです。”
– PKU Wiki*
July 2011
1 post
K.U.Leuven JCHR (Java Constraint Handling Rules) →
June 2011
11 posts
“Here you can download the slides that will be used in the lectures. There is no...”
– First International Summer School on Constraint Handling Rules
2 tags
Prolog: Project Euler - Problem 39
If p is the perimeter of a right angle triangle, {a, b, c}, which value, for p ≤ 1000, has the most solutions?
原始ピタゴラス数の行列による生成をライブラリ化。
:- module(pythagoreans_triangle,[root_triangle/1,prim_gen/2]).
root_triangle([3,4,5]).
prim_gen([A,B,C],L) :- mul([-A,B,C],L); mul([-A,-B,C],L); mul([A,-B,C],L).
mul([A,B,C],[X,Y,Z]) :- X is -A-2*B+2*C, Y is -2*A-B+2*C, Z is -2*A-2*B+3*C.
...
2 tags
Prolog: Project Euler - Problem 38
What is the largest 1 to 9 pandigital that can be formed by multiplying a fixed number by 1, 2, 3, … ?
:- use_module(library(digits),[i2d/2,d2i/2]).
problem38(Answer) :- aggregate(max(N),answer(N),Answer).
answer(X) :-
between(1,9876,N), cat([N],L), sort(L,[1,2,3,4,5,6,7,8,9]), d2i(L,X).
cat(L,X) :-
maplist(i2d,L,L1), flatten(L1,X), length(X,N), (N =< 9 -> true; !,...
2 tags
Prolog: Project Euler - Problem 37
Find the sum of all eleven primes that are both truncatable from left to right and right to left.
:- use_module(library(primes),[isPrime/1]).
:- use_module(library(digits),[i2d/2,d2i/2]).
problem37(Answer) :- aggregate(sum(N),answer(N),Answer).
answer(N) :- member(A,[2,3,5,7]), cat(A,N), i2d(N,L), check(L).
cat(N,X) :- member(A,[1,3,7,9]), N1 is 10*N+A, isPrime(N1), (X = N1;...
2 tags
Prolog: Project Euler - Problem 36
Find the sum of all numbers less than one million, which are palindromic in base 10 and base 2.
:- use_module(library(digits), [d2i/2]).
problem36(Answer) :- aggregate(sum(N),answer(N),Answer).
num(X) :-
member(A,[1,3,5,7,9]),
( d2i([A],X)
; d2i([A,A],X)
; between(0,9,B),
( d2i([A,B,A],X)
; d2i([A,B,B,A],X)
; between(0,9,C),
( ...
2 tags
Prolog: Project Euler - Problem 35
How many circular primes are there below one million?
:- use_module(library(primes),[is_prime/1]).
:- use_module(library(digits),[d2i/2]).
problem35(Answer) :- aggregate_all(count,answer(_),X), Answer is X+13.
candidate(N) :- member(N,[1,3,7,9]).
ds(X) :- candidate(N), ds([N],X).
ds(L,L) :- length(L,6), !.
ds(L,X) :- length(L,Len), Len < 3, !, candidate(N), ds([N|L],X).
ds(L,X) :- X =...
2 tags
Prolog: Project Euler - Problem 34
Find the sum of all numbers which are equal to the sum of the factorial of their digits.
:- use_module(library(digits), [i2d/2]).
problem34(Answer) :- aggregate(sum(N),answer(N),Answer).
fact(0,1) :- !.
fact(N,X) :- N1 is N-1, fact(N1,X1), X is N*X1.
digit(N,X) :- fact(9,M), M*N >= 10**N, !, N1 is N+1, digit(N1,X).
digit(N,N).
answer(X) :- digit(1,M), between(0,9,N), answer(M,[N],X), X...
2 tags
Prolog: Project Euler - Problem 33
Discover all the fractions with an unorthodox cancelling method.
:- use_module(library(digits),[i2d/2]).
problem33(Answer) :-
findall(R,flaction(R),L), product(L,R), rational(R,_,Answer).
product([],1).
product([H|T],X) :- product(T,X1), X is H*X1.
flaction(R) :-
between(10,99,X), Y1 is X+1, between(Y1,99,Y),
i2d(X,[A1,A2]), i2d(Y,[B1,B2]),
( (A1 = B2, A2 \= B1, A2/B1 =:=...