From 9ce6aee70eac5a8c2a1683cb6e8c75eb5f99a4da Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 13 Dec 2021 19:30:18 -0500
Subject: Simplify pyramigram function

---
 examples/fifty.bqn | 6 +++---
 1 file 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:
-- 
cgit v1.2.3