14 lines
305 B
Text
14 lines
305 B
Text
#lang transd
|
|
|
|
MainModule: {
|
|
doors: Vector<Bool>(100),
|
|
_start: (λ
|
|
(for i in Seq(100) do
|
|
(for k in Seq(i 100 (+ i 1)) do
|
|
(set-el doors k (not (get doors k)))
|
|
))
|
|
|
|
(for i in Seq(100) do
|
|
(if (get doors i) (textout (+ i 1) " "))
|
|
))
|
|
}
|