27 lines
355 B
Plaintext
27 lines
355 B
Plaintext
defint a-z
|
|
option base 1
|
|
input "n=",n
|
|
dim a(n)
|
|
for i=1 to n: a(i)=i: next
|
|
do
|
|
for i=1 to n: print a(i);: next: print
|
|
i=n
|
|
do
|
|
decr i
|
|
loop until i=0 or a(i)<a(i+1)
|
|
j=i+1
|
|
k=n
|
|
while j<k
|
|
swap a(j),a(k)
|
|
incr j
|
|
decr k
|
|
wend
|
|
if i>0 then
|
|
j=i+1
|
|
while a(j)<a(i)
|
|
incr j
|
|
wend
|
|
swap a(i),a(j)
|
|
end if
|
|
loop until i=0
|