21 lines
457 B
BQN
21 lines
457 B
BQN
u ← ⌊100×(•UnixTime+1|100וMonoTime)@
|
||
Range ← (•MakeRand •Show u).Range
|
||
|
||
Do ← {𝕊:
|
||
orig ← (1000⌊𝕩) Range 2
|
||
s ← Range 1+≠orig
|
||
mut ← "Ab"•internal.Variation orig
|
||
l ← Range (1+≠orig)-s
|
||
v ← Range 2
|
||
mut •internal.Temp ⟨0,s,0,l⟩
|
||
exp ← 0¨⌾((s+↕l)⊸⊏) orig
|
||
mut ≢ exp?
|
||
•Show '0'+orig
|
||
•Show '0'+mut
|
||
•Show '0'+exp
|
||
•Show s‿l‿v
|
||
•Exit 1;
|
||
𝕩
|
||
}
|
||
|
||
Do¨ ↕500000 |