A Kaprekar-féle számról: http://en.wikipedia.org/wiki/Kaprekar_number
Topik a Számológép Fórumon: http://groups.google.hu/group/szamologep/browse_thread/thread/f70fd12fab1573e
? -> A
{0,0,0,0 -> List 1
For 1 -> B To 4
Frac (A / 10)*10 -> List 1[5 - B
Int (A / 10 -> A
Next
For 1 -> B To 3
For 1 -> C To B
If List 1[C] < List 1[C+1
Then List 1[C -> S
List 1[C+1 -> List 1[C
S -> List 1[C+1
IfEnd
Next
Next
999*List 1[1] + 90*List 1[2] - 90*List 1[3] - 999*List 1[4] (output)
