aboutsummaryrefslogtreecommitdiff
path: root/examples/fifty.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'examples/fifty.bqn')
-rw-r--r--examples/fifty.bqn6
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/fifty.bqn b/examples/fifty.bqn
index a4e3462a..4b10cbae 100644
--- a/examples/fifty.bqn
+++ b/examples/fifty.bqn
@@ -249,9 +249,9 @@ Sieve←{
Pg ← β€’rand.Deal{
d ← 𝕩+𝕩
s ← 𝕩×𝕩
- t ← (π•©βˆΎπ•©)↑(π•©βˆΎd)β₯Š(1-d)↑(𝕩𝔽26)⊏"abcdefghijklmnopqrstuvwxyz"
- p ← ⍋(s𝔽s)+(-´¨1↓↑𝕩-ΛœβŒ½β†•d)/s×↕d
- (βŒ½β†•π•©)⌽˘((d-1)β₯Š1β€Ώ0)⊸{π•©βŒΎ(π•¨βŠΈ/)' '¨𝕨}˘(π•©βˆΎπ•©)β₯Šp⊏β₯Št
+ t ← π•©β†‘Λ˜π•©β€Ώdβ₯Š(Β¬d)↑'a'+𝕩𝔽26
+ p ← ⍋(𝔽s)+sΓ—/+`(Β―1βŠΈβ‹†Γ—π•©-˜⌽)↕d
+ (βŒ½β†•π•©) ⌽⟜{1↓β₯Š' 'β‰Λ˜π•©}˘ 𝕩‿𝕩β₯Šp⊏β₯Št
}
#‒Show Pg¨ 4‿5‿6‿7
TestPg ← {nπ•Šp: