Bitches don't know bout my CAS


В процессе развлечений на Project Euler, люто-бешено возжелал свежей Mathematica шестого релиза. Что, собственно, и реализовал, благо TPB живой-здоровый, можете даже повторить мой опыт. Улучшилась документация, стала такой веб-образной и 2.0, но большей фичей стал набор «интерактивных» инструментов (куча красивостей на офф. сайте).
Mathematica меня всегда радовала своей простотой невероятной, что и первокурсник и дроп-аут туповатый с ней справиться.
Например, 26-ая задача решается просто формализацией:

fLen[n_] := If[IntegerQ[RealDigits[1/n][[1]][[1]]], 0, Length[RealDigits[1/n][[1]][[1]]]];
r = 0; i = 0; For[d = 1, d < 1000, d++, If[r < fLen[d], i = d; r = fLen[d]]]; Print[i]

В качестве легкой вечерней зарядки вполне сойдёт. И вам тоже советую, ибо это красиво, просто и занимательно.

ps картинка — original content, btw