diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-12-13 19:30:18 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-12-13 19:30:18 -0500 |
| commit | 9ce6aee70eac5a8c2a1683cb6e8c75eb5f99a4da (patch) | |
| tree | 9ac760896a66b149ec010fec9ca870c089fe7c27 | |
| parent | 662316ad07d2cfe4253c1a59c65ca7bc30babec2 (diff) | |
Simplify pyramigram function
| -rw-r--r-- | examples/fifty.bqn | 6 |
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: |