Skip to content

Instantly share code, notes, and snippets.

@rdbuf

rdbuf/forth-02.fth

Last active December 15, 2018 21:00
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save rdbuf/8d00e4eebad2951b79cabdbf343ac555 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save rdbuf/8d00e4eebad2951b79cabdbf343ac555 to your computer and use it in GitHub Desktop.
Download ZIP
Языки и методы программирования, 1 семестр
Raw
forth-02.fth
: max_elem_index ( addr len -- idx ) 0 -rot 0 do i cells over + @ -rot 2dup swap cells + @ 2swap -rot < if drop i then swap loop drop ;
create mynumbers 943 , 43 , 7 , 954 ,
: test mynumbers 4 max_elem_index . ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment