izaya
/
collapseos
kopia lustrzana https://github.com/hsoft/collapseos.git
1
1
Forkuj 0
Kod Zgłoszenia 0 Wydania 0 Wiki Aktywność
Mirror of CollapseOS
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
1258 Commity
4 Gałęzie
13MB
Drzewo: 7a38c3e228
Gałęzie Tagi
${ item.name }
Utwórz gałąź ${ searchTerm }
z '7a38c3e228'
${ noResults }
collapseos/blk/354

14 wiersze
550B
Czysty Wina Historia 

  1. : ABORT (resSP) QUIT ;

  2. : ERR LIT< (print) FIND IF EXECUTE THEN ABORT ;

  3. : = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ;

  4. : 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ;

  5. : >< ( n l h -- f ) 2 PICK > ( n l f ) ROT ROT > AND ;

  6. : =><= 2 PICK >= ( n l f ) ROT ROT >= AND ;

  7. : MIN ( n n - n ) 2DUP > IF SWAP THEN DROP ;

  8. : MAX ( n n - n ) 2DUP < IF SWAP THEN DROP ;

  9. : NIP SWAP DROP ; : TUCK SWAP OVER ;

  10. : C@+ ( a -- a+1 c ) DUP C@ SWAP 1+ SWAP ;

  11. : C!+ ( c a -- a+1 ) TUCK C! 1+ ;

  12. : C@- ( a -- a-1 c ) DUP C@ SWAP 1- SWAP ;

  13. : C!- ( c a -- a-1 ) TUCK C! 1- ;