blob: 84cb41372d9e513b35b61e6ee7e5af36f7645713 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
###
# Cubic permutations
# Problem 62
#
# The cube, 41063625 (345^3), can be permuted to produce two other cubes: 56623104 (384^3)
# and 66430125 (405^3). In fact, 41063625 is the smallest cube which has exactly three
# permutations of its digits which are also cube.
# Find the smallest cube for which exactly five permutations of its digits are cube.
###
using Base.Iterators
cache = Dict()
const PERMUTATIONS_COUNT = 5
for n in countfrom(2)
cube = n ^ 3
key = sort(digits(cube))
if !haskey(cache, key)
cache[key] = [cube]
else
push!(cache[key], cube)
end
for v in values(cache)
if length(v) == PERMUTATIONS_COUNT
println(minimum(v))
exit(0)
end
end
end
|
