diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/r.bqn | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -150,24 +150,24 @@ Mergeβ{ π©ββDeshapeΛβcβ₯β1ΓΒ΄c }β(0<β ββ₯)βIsArray -+ β© + _perv -- β© - _perv -Γ β© (0βΈ(<->) β Γ) _perv Γ· β© Γ· _perv β β© β _perv β β ββ(Γ·2) β (ββΓ·Λ) -| β (ΓβΓ β {π©-π¨Γβπ©Γ·π¨}) _perv +| β (0βΈβ€βΆ-βΏβ’ β {π©-π¨Γβπ©Γ·π¨}) _perv β β© (β β {(π¨>π©)βπ¨βΏπ©}) _perv β β© (-βββ- β {(π¨<π©)βπ¨βΏπ©}) _perv -Β¬ β 1+- -β§ β Γ -β¨ β (+-Γ) +β§ β Γ _perv +β¨ β (+-Γ) _perv +Γ β© (0βΈ(<->) β Γ) _perv < β© {β¨β©β₯β¨π©β©} β ((1-β€Λ) _perv) > β© Merge β ((1-β€) _perv) β β© β β ((1-=) _perv) = β© = β (= _perv) β₯ β !β0 β (β€Λ_perv) β€ β© !β0 β (β€ _perv) ++ β© + _perv +- β© - _perv +Β¬ β 1+- identity β (0ββ¨!β0β©) {(0βπ¨){π=π©}βΆπ©βΏ(1βπ¨)}Β΄ β¨+βΏ0,-βΏ0,ΓβΏ1,Γ·βΏ1,ββΏ1,ββΏ1,β§βΏ1,β¨βΏ0,|βΏ0,ββΏβ,ββΏΒ―β,<βΏ0,β€βΏ1,=βΏ1,β₯βΏ1,>βΏ0,β βΏ0β© DeshapeβIsArrayβΆ{β¨π©β©}βΏβ₯ |
