checkselections2
#5324
Content:
[setq(n,[rand(50000)])]
[setq(c,1)]
[iter(
  shuffle(
   shuffle(
    shuffle(
     shuffle(
      lnum(%qn,add(%qn,2500))
    )
   )
  )
 ),
 [ifelse(%qc,[setq(r,[c(35)]##)]
  [ifelse(hastype(%qr,room),%qr[setq(c,0)],)]
 )]
)]

One line version:

[setq(n,[rand(50000)])][setq(c,1)][iter(shuffle(shuffle(shuffle(shuffle(lnum(%qn,add(%qn,2500)))))),[ifelse(%qc,[setq(r,[c(35)]##)][ifelse(hastype(%qr,room),%qr[setq(c,0)],)])])]