@@ -2,7 +2,7 @@
3Apply function to two units
3Apply function to two units
5−Applies a binary function `c`--which does not usually accept or produce a [`++unit`]()--
5+Applies a binary function `c`--which does not usually accept or produce a `++unit`--
6to the values of two units, `a` and `b`, producing a unit.
6to the values of two units, `a` and `b`, producing a unit.
@@ -23,20 +23,21 @@ Source
25 ++ clap :: combine
25 ++ clap :: combine
26− |* [a=(unit) b=(unit) c=_|=(^ +<-)]
26+ |* {a/(unit) b/(unit) c/_|=(^ +<-)}
29 [~ u=(c u.a u.b)]
29 [~ u=(c u.a u.b)]
34− ~zod/try=> =u ((unit ,@t) [~ 'a'])
35+ ~zod/try=> =u ((unit @t) [~ 'a'])
35− ~zod/try=> =v ((unit ,@t) [~ 'b'])
36+ ~zod/try=> =v ((unit @t) [~ 'b'])
36 ~zod/try=> (clap u v |=([a=@t b=@t] (welp (trip a) (trip b))))
37 ~zod/try=> (clap u v |=([a=@t b=@t] (welp (trip a) (trip b))))
37 [~ u="ab"]
38 [~ u="ab"]
38− ~zod/try=> =a ((unit ,@u) [~ 1])
39+ ~zod/try=> =a ((unit @u) [~ 1])
39− ~zod/try=> =b ((unit ,@u) [~ 2])
40+ ~zod/try=> =b ((unit @u) [~ 2])
40 ~zod/try=> =c |=([a=@ b=@] (add a b))
41 ~zod/try=> =c |=([a=@ b=@] (add a b))
41 ~zod/try=> (clap a b c)
42 ~zod/try=> (clap a b c)