USING: arrays math math.ranges math.primes.factors sequences ; IN: lamps : ( -- seq ) 100 [1,b] >array ; : calc-switching ( -- lamps ) [ divisors length even? ] map ;