12 lines
231 B
Text
12 lines
231 B
Text
10 DEF FN P(X)=INT(X^X*SGN(X))
|
|
20 FOR I=0 TO 5
|
|
30 FOR J=0 TO 5
|
|
40 FOR K=0 TO 5
|
|
50 FOR L=0 TO 5
|
|
60 M=FN P(I)+FN P(J)+FN P(K)+FN P(L)
|
|
70 N=1000*I+100*J+10*K+L
|
|
80 IF M=N AND M>0 THEN PRINT M
|
|
90 NEXT L
|
|
100 NEXT K
|
|
110 NEXT J
|
|
120 NEXT I
|