Data update

This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions

View file

@ -0,0 +1,16 @@
[ 1 ] is red ( --> n )
[ 2 ] is white ( --> n )
[ 3 ] is blue ( --> n )
randomise
[] ' [ red white blue ]
witheach
[ nested swap
5 random times [ over join ]
swap join ]
dup [ shuffle 2dup != until ] nip
say "Before sorting: " dup echo cr
say " After sorting: " sortwith [ dip do do > ] echo cr

View file

@ -0,0 +1,3 @@
&p.[⍥(⊡⌊×3⚂"RWB")30] # Build it.
&p.⊏▽⊸>2⍏⊛.⊂"RWB" # Sort it, providing model for sort order.
&p⨬("oops"|"good")≍⊏⊸⍏.⊛ # Confirm it's sorted.