izaya
/
collapseos
Mirror von https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Aktivität
Mirror of CollapseOS
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
1258 Commits
4 Branches
13MB
Struktur: 7a38c3e228
Branches Tags
${ item.name }
Erstelle Branch ${ searchTerm }
von „7a38c3e228“
${ noResults }
collapseos/blk/371

14 Zeilen
356B
Originalformat Blame Verlauf 

  1. : MOVE ( a1 a2 u -- )

  2.     ( u ) 0 DO ( a1 a2 )

  3.         SWAP C@+ ( a2 a1+1 x )

  4.         ROT C!+ ( a1+1 a2+1 )

  5.     LOOP 2DROP ;

  6. : MOVE- ( a1 a2 u -- )

  7.     TUCK + 1- ( a1 u a2+u-1 )

  8.     ROT 2 PICK + 1- ( u a2+u-1 a1+u-1 )

  9.     ROT ( u ) 0 DO ( a2 a1 )

  10.         C@- ( a2 a1-1 x )

  11.         ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )

  12.     LOOP 2DROP ;

  13. : PREV 3 - DUP @ - ;