mini_forth/c/example/binary.fth at master · Ljzn/mini_forth · GitHub

Sitelet https://github.com/Ljzn/mini_forth/blob/master/c/example/binary.fth

This repository was archived by the owner on Jul 28, 2022. It is now read-only.

15 lines (10 loc) · 244 Bytes

\ sub string
: left ( str n -- left_str )
    split drop ;
: right ( str n -- right_str )
    split nip ;
: substr ( str start len -- substr )
    rot rot right
    swap left ;
: main "I am a fish" 2 4 substr ;
: test main "am a" =verify ;