Desafío: La caja fuerte del tío Petros

Es es mi solución al desafío propuesto por lwayar en RetroNet, realizada en GNU/Octave 3.0.1:

  1 k=[1:1:100]; c=k.^3;

  2 for h=k

  3     d=int2str(c(h));

  4     if (sum(toascii(d).-48)==h)

  5         printf("Numero: %d, su cubo %d\n",h, c(h));

  6     end

  7 endfor

No es el mejor algoritmo, pero bueno, me funciono...
Gracias a lwayar por el desafío!