extra/lists/circular/circular.factor

   1 ! Copyright (C) 2022 Alexander Ilin.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: circular kernel lists sequences ;
   4 IN: lists.circular
   5
   6 M: circular car 0 swap nth ;
   7
   8 M: circular cdr [ rotate-circular ] keep ;