Created
February 18, 2017 08:06
-
-
Save yrashk/85a078af8a956aa8fd7d27f1bd5d47d1 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (Finds the last element in an ordered collection: ) | |
| [2DUP CONCAT SWAP DROP CURSOR DUP ROT CURSOR/SEEK? [DUP CURSOR/CUR UNWRAP DROP ROT DUP LENGTH SWAP ROT ROT 0 SWAP SLICE EQUAL? [CURSOR/CUR] [CURSOR/PREV] IFELSE ] [CURSOR/LAST SWAP DROP] IFELSE UNWRAP SWAP DROP] 'ORDCOLL/LAST DEF |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment