Pastebin: binary2ascii.fs

Format

Plain text

Post date

2020-04-09 09:19

Période de publication

Illimité

 : bin>number base @ >r 2 base ! >number r> base ! ;
 
 : bin-emit 
   0. bl word count over >r bin>number drop 
   swap drop
   r> > if 
     emit 0 
   else drop -1 endif ;
 
 : bin2asc begin bin-emit until ;
 
 : binary2ascii 
   begin
     0. bl word count over >r bin>number drop 
     swap drop
     r> > while 
       emit
   repeat ;
 
 bin2asc 01001000 01100101 01101100 01101100 01101111