Handbook
Glossary
end
Vocabulary
project-euler
.
215
.
private
Definition
USING:
math
;
IN:
project-euler.215.private
TUPLE:
end
{
ways
integer
initial:
0
}
;
Methods
USING:
kernel
project-euler.215.private
;
M:
end
block-merge
nip
;
USING:
accessors
kernel
math
project-euler.215.private
;
M:
end
end-merge
[
ways>>
]
bi@
+
<end>
;
USING:
kernel
project-euler.215.private
;
M:
end
h-1
drop
<failure>
;
USING:
project-euler.215.private
;
M:
end
h0
;
USING:
kernel
project-euler.215.private
;
M:
end
h1
drop
<failure>
;
USING:
kernel
project-euler.215.private
;
M:
end
h2
dup
failure?
[
<failure>
<block>
]
unless
;
USING:
project-euler.215.private
;
M:
end
merge
end-merge
;
USING:
accessors
project-euler.215.private
;
M:
end
total
ways>>
;