! Copyright (C) 2009 Yun, Jonghyouk.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences ;
IN: sequences.last

: last-n ( seq n -- obj ) swap dup length rot - swap nth ;

: last-0 ( seq -- obj ) 1 last-n ;

: last-1 ( seq -- obj ) 2 last-n ;