Euler Problem 80:

Prosto rješenje pomoću Mathematica:

sum = 0; i = 0; While[True,
 If[i > 100, Break[]];
 sqrt = Sqrt[i];
 If[sqrt != IntegerPart[sqrt],
  sum = sum + Total[RealDigits[N[sqrt, 150], 10, 100][[1]]];
  ]; i++;
 ]; sum