daily pastebin goal
0%
SHARE
TWEET

Untitled

a guest Aug 10th, 2018 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;  :: >DIGIT  48 + 58 .<; 7 + 91 .<; 6 + ;
  2. ;  :: .DIGIT  1- >R 3C@ U/MOD >DIGIT R@ C! R> ;
  3. ;  :: .DIGITS  .DIGIT OVER 0<>ME NIP ;
  4. ;  :: ?U  3@ x:100 AND 0=; ABS ;
  5. ;  :: .-?  .0>= 2* 1- ?U TUCK * ;
  6. ;  :: .SIGN  ?U SWAP 0>=; 1- 45 OVER C! ;
  7. ;  : .S  >R .-? R@ .DIGITS .SIGN 1- R> OVER - 1- OVER C! ;
  8. ;  : (.)  PAD .S .C@++ TYPE ;
  9. ;  :: GETC  SWAP .C@++ ROT 1- SWAP ;
  10. ;  :: BAD  7 ERR [
  11. ;  :: DOEND  4@ @ (.) CELL 4+! ;
  12. ;  :: DODOT  2@ 8 << 2! ;
  13. ;  :: DOBASE  2@ DUP 3C! 8 >> 2! ;
  14. ;  :: DOB  2 3C! DOEND 2 n;
  15. ;  :: DOD  DOEND 2 n;
  16. ;  :: DOO  8 3C! DO END 2 n;
  17. ;  :: DOU  3@ x:100 OR 3! ;
  18. ;  :: DOX  16 3C! DOEND 2 n;
  19. ;  CREATE TABLE  <cfa0> h, <cfa1> h, <cfa2> h, ...
  20. ;  :: ?SP  32 .<>; DROP 0 ;;
  21. ;  :: ?+  43 .<>; DROP 1 ;;
  22. ;  :: ?-.  45 .<; 46 .>; 43 - ;;
  23. ;  :: ?0-9  48 .<; 57 .>; 48 - 2C@ 10 * + 2C! 2 n;
  24. ;  :: ?:  58 .<>; DROP 4 ;;
  25. ;  :: ?_  95 .<>; DROP 5 ;;
  26. ;  :: ?a-z  97 .<; 122 .>; 91 - ;;
  27. ;  :: MAP  ?SP ?+ ?-. ?0-9 ?: ?_ ?a-z BAD [
  28. ;  :: HANDLE  MAP 2 << TABLE + H@ SYSTEM + EXECUTE ;
  29. ;  :: S0  GETC HANDLE ME [
  30. ;  :: +FRAME  10 -ROT 0 -ROT ;
  31. ;  :: -FRAME  ROT DROP ROT DROP ;
  32. ;  :: _%  +FRAME {{ S0 }} -FRAME ;
  33. ;  :: ?%  37 .<>; DROP _% ;;
  34. ;  :: 1CHAR  .0=;; GETC ?% EMIT ;
  35. ;  :: (_TYPE) 1CHAR ME ;
  36. ;  : _TYPE  SP@ CELL + -ROT (_TYPE) 2 DROPS SP! DROP ;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top