binary to ascii (up to carriage return, within limits of input buffer length length)

形式
Plain text
投稿日時
2020-04-09 09:19
公開期間
無期限
  1. : bin>number base @ >r 2 base ! >number r> base ! ;
  2. : bin-emit
  3. 0. bl word count over >r bin>number drop
  4. swap drop
  5. r> > if
  6. emit 0
  7. else drop -1 endif ;
  8. : bin2asc begin bin-emit until ;
  9. : binary2ascii
  10. begin
  11. 0. bl word count over >r bin>number drop
  12. swap drop
  13. r> > while
  14. emit
  15. repeat ;
  16. bin2asc 01001000 01100101 01101100 01101100 01101111
ダウンロード 印刷用表示

このコピペの URL

JavaScript での埋め込み

iframe での埋め込み

元のテキスト