100 doors: Difference between revisions
→{{header|Transact-SQL}}
Line 11,922:
-- More doors would also need an InitDoors with more rows.
</lang>
=={{header|Transd}}==
<lang scheme>
#lang transd
mainModule : {
doors: Vector(Bool() 100),
_start: (λ
(with i 0 j 0 k 0
(while (< i 100) (+= i 1)
(= j i)
(= k (+ i 1))
(while (< j 100) (+= j k)
(set doors j (not (get doors j)))
)
)
(= i 0)
(while (< i 100) (+= i 1)
(if (eq (get doors i) true) (textout (+ i 1) " "))
)
))
}
</lang>
<code>OUTPUT:<br><br>1 4 9 16 25 36 49 64 81 100</code>
=={{header|True BASIC}}==
| |||