Übersicht > Türme von Hanoi > Justif

Justif basiert auf dem aus C bekannten ?: als einziger Kontrollstruktur. Um Schleifen oder ähnliches zu implementieren, muß das Programm rekursiv aufgerufen werden.

Homepage: http://www.p-nand-q.com/justif.htm

Die Türme von Hanoi in Justif

~1?
    .0=8,
    ..0=97,.0+1,
    ..0=98,.0+1,
    ..0=99,.0+1,
    ..0=5,.0+1,
    =2
:~3?
    /.2!.3=0?
        >.2!.3,
        .3+1,
        =3
    :
        0
:.1=.0,.1-1,-..1=1?
    .2="Lege die oberste Scheibe von Turm ",.3=0,
    =3,
    .1=.0,.1-4,>..1,
    .2=" auf Turm ",.3=0,
    =3,
    .1+2,>..1,
    .1=".",>.1!0,
    .1=10,>.1,
    .0-4
:
    .1=.0,.1-4,..0=..1,.0+1,
    .1=.0,.1-3,..0=..1,.0+1,
    .1=.0,.1-5,..0=..1,.0+1,
    .1=.0,.1-4,..0=..1,..0-1,.0+1,
    =2,
    .1=.0,.1-4,..0=..1,.0+1,
    .1=.0,.1-4,..0=..1,.0+1,
    .1=.0,.1-4,..0=..1,.0+1,
    ..0=1,.0+1,
    =2,
    .1=.0,.1-3,..0=..1,.0+1,
    .1=.0,.1-5,..0=..1,.0+1,
    .1=.0,.1-4,..0=..1,.0+1,
    .1=.0,.1-4,..0=..1,..0-1,.0+1,
    =2,
    .0-4