24 lines
860 B
Scala
24 lines
860 B
Scala
package tf.bug.fancade
|
||
|
||
object Main {
|
||
|
||
def main(args: Array[String]): Unit = {
|
||
import Fanscript._
|
||
import tf.bug.shinji.syntax.all._
|
||
val sum: (Number × Number × Pull × Number × Pull) → (Pull × Number × Number × Pull) = {
|
||
val getSum: T → Number = Builtin.GetNumber("Sum")
|
||
val addToSum: (Number × Pull) → Pull = {
|
||
val add: (Number × Number) → Number = Builtin.AddNumbers
|
||
val sumAsFirstInput: (T × Number) → (Number × Number) = getSum.first[Number]
|
||
val branch: Number → (T × Number) = deunitL
|
||
val justSecondInput: Number → (Number × Number) = branch >>> sumAsFirstInput
|
||
val addSum: Number → Number = add.ldimap(justSecondInput)
|
||
val storeSum: (Number × Pull) → Pull = Builtin.SetNumber("Sum")
|
||
storeSum.ldimap(arr.lbimap(addSum))
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
}
|