XProfan

English

p.specht

object: should later as Timing-Vergleichsbasis for Beschleunigungs-take action serve, about to judgement, whether this physische Umordnen in memory for Assembler-bescheunigte mutants zeitmäßig at all rewards...

Compile Mark Separation

Window Title "XProfan-11.2a: Transponierte of/ one n,m-Matrix erstellen"
Window Style 24:Window 0,0-%maxx,%maxy:cls:randomize
set("decimals",0):set("numwidth",4)
declare n&,m&,tm&,i&,j&
n&=20'Lines
m&=20'Split
Declare M![n&-1,m&-1]
M![]=&index

if (n&<21) and (m&<21)

    whileloop 0,n&-1:i&=&Loop

        whileloop 0,m&-1:j&=&Loop

            print M![i&,j&],
            endwhile:print

        endwhile

    endif

    tm&=&gettickcount
    Declare M°![m&-1,n&-1]

    whileloop 0,n&-1:i&=&Loop

        whileloop 0,m&-1:j&=&Loop

            M°![j&,i&]=M![i&,j&]

        endwhile

    endwhile

    tm&=&gettickcount-tm&
    font 2:print "\n ";tm&,"ms\n":font 0

    if (m&<21) and (n&<21)

        waitinput 1000

        whileloop 0,m&-1:j&=&Loop

            whileloop 0,n&-1:i&=&Loop

                print M°![j&,i&],
                endwhile:print
                endwhile:case j&<(m&-1):print

            endif

            beep
            waitinput
            End