задачка

[avva]

Подсмотрел задачку у kittenish_co: найти шестизначное число, если дано, что оно целый квадрат, все цифры разные и идут в возрастающем порядке. Имеет смысл решать её в уме (без компьютера, калькулятора или даже бумаги), иначе слишком легко. Ответ можно не писать, я его знаю ;)

Comments

[elcour.livejournal.com]

Симпатично :)

[onodera.livejournal.com]

В возрастающем с шагом один или просто каждая больше предыдущей?

[onodera.livejournal.com]

Не подумал перед тем, как написать -_-'

[avva.livejournal.com]

Просто каждая больше предыдущей.

[ex-ilyavinar899.livejournal.com]

Спасибо; я стоял на двухчасовом митинге и решал в уме.

[ex-ilyavinar899.livejournal.com]

с 3х до 5и утра не спал; сузил до 16 вариатнов; было лень в уме проверять все.

[avva.livejournal.com]

Я довольно легко, мне кажется, сузил до 12 вариантов, но дальше их все проверил (в уме). Как ты сужал?

[ex-ilyavinar899.livejournal.com]

по последним двум цифрам.

[avva.livejournal.com]

Ну да.
Есть четыре варианта последних двух цифр и три варианта первой; всего 12.

[(Anonymous)]

let rec represent = function
| 0 -> []
| x -> (x mod 10) :: (represent (x / 10))

let rec sorted cmp = function
| [] -> true
| a :: [] -> true
| a :: b :: t -> cmp a b && sorted (cmp) (b :: t)

let test x =
let q = x * x in
if sorted (<) (List.rev (represent q)) then Printf.printf "%d %d\n" x q

let _ =
for i = 32 to 59 do
let v = i * 10 in test (v + 3); test (v + 7)
done
;;

[avva.livejournal.com]

Это легко. В уме тяжелее.