mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-21 15:38:59 +03:00
spin and spun
This commit is contained in:
parent
527984daa6
commit
906411c06c
@ -778,6 +778,24 @@
|
||||
^+ t.a
|
||||
[i.a $(a (skim t.a |=(c/_i.a !(b c i.a))))]
|
||||
::
|
||||
++ spin
|
||||
|* {a/(list) b/_|=({* *} [** +<+]) c/*}
|
||||
:: ?< ?=($-([_?<(?=($~ a) i.a) _c] [* _c]) b)
|
||||
|-
|
||||
?~ a
|
||||
~
|
||||
=+ v=(b i.a c)
|
||||
[i=-.v t=$(a t.a, c +.v)]
|
||||
::
|
||||
++ spun
|
||||
|* {a/(list) b/_|=({* *} [** +<+])}
|
||||
=| c/_+<+.b
|
||||
|-
|
||||
?~ a
|
||||
~
|
||||
=+ v=(b i.a c)
|
||||
[i=-.v t=$(a t.a, c +.v)]
|
||||
::
|
||||
++ swag :: infix
|
||||
|* {{a/@ b/@} c/(list)}
|
||||
(scag +<-> (slag +<-< c))
|
||||
|
Loading…
Reference in New Issue
Block a user