Paste: increment in hashtable

Author: itmuckel
Mode: factor
Date: Tue, 7 Jul 2020 19:03:00
Plain Text |
: increment-entry ( hashtable entry -- num )
    of ?1+
    dup zero?
    [
        1 +
    ] when ;

: increment-in-hashtable ( hashtable entry -- hashtable )
    2dup increment-entry
    swap
    pick
    set-at ;

New Annotation

Summary:
Author:
Mode:
Body: