! Copyright (C) 2013 Loryn Jenkins.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences ;
IN: utils

: map-index+ ( ... seq quot: ( ... elt index -- ... newelt ) -- ... newseq )
    '[ [ 1 + @ ] map-index ] call ; inline

: map-index+! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq )
    '[ [ 1 + @ ] map-index! ] call ; inline