{"body":"( Checks to see if an ascii character code is a digit )\n( chr -- true | false )\n: LOOKS-LIKE-DIGIT\n  ( Assuming we're working with ASCII and not something like EBCDIC, it should be safe to assume that numbers fall between 48: 0, and 57: 9. )\n  DUP 48 >= SWAP 57 <= -1 = =\n;\n\n( Checks to see if a string looks like a number )\n( addr len -- true | false )\n: LOOKS-LIKE-NUMBER\n  -1 SWAP 0 DO\n    DROP                            ( Discard until last iteration )\n    DUP C@                          ( Save address, fetch character )\n      LOOKS-LIKE-DIGIT INVERT IF    ( Check to ensure this is a digit in ASCII )\n        0 LEAVE                     ( gtfo )\n      THEN                          ( Not a digit )\n  1+ -1 LOOP                        ( Might be a number )\n  SWAP DROP -1 =\n;\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/GBpMKW0A","modified":1508714557,"id":"GBpMKW0A","size":783,"lines":19,"own_paste":false,"theme":"","date":1508714557}