| |
|
|
|
'{$cleq}
declare zaehleMit$,zaehler$,s$
zaehleMit$="ABCD"
cls
whileLoop 85
zaehler$=zaehleHoch(zaehler$,zaehleMit$)
s$=s$+zaehler$+"\n"
wend
clearClip
putClip s$
end
proc zaehleHoch
parameters s$,base$,p&
case %pCount<3 : p&=len(s$)
var chp&=instr(mid$(s$,p&,1),base$)
case chp&=len(base$) : return zaehleHoch(mid$(s$,1,p&-1)+left$(base$,1)+mid$(s$,p&+1,len(s$)-p&),base$,p&-1)
return mid$(s$,1,p&-1)+mid$(base$,chp&+1,1)+mid$(s$,p&+1,len(s$)-p&)
endProc
A B C D AA AB AC AD BA BB BC BD CA CB CC CD DA DB DC DD AAA AAB AAC AAD ABA ABB ABC ABD ACA ACB ACC ACD ADA ADB ADC ADD BAA BAB BAC BAD BBA BBB BBC BBD BCA BCB BCC BCD BDA BDB BDC BDD CAA CAB CAC CAD CBA CBB CBC CBD CCA CCB CCC CCD CDA CDB CDC CDD DAA DAB DAC DAD DBA DBB DBC DBD DCA DCB DCC DCD DDA DDB DDC DDD AAAA |
|
|
| |
|
|