Comment detail

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

SWI-Prologで。

1
2
3
4
count(N) :- writeln(0), sub_atom(N,1,_,_,Y), between(1,9,X), 
    atom_concat(X,Y,XY), writeln(XY), atom_number(XY,N), !.

:- count(300).

Index

Feed

Other

Link

Pathtraq

loading...