mirror of
https://github.com/fluencelabs/examples
synced 2025-05-29 02:31:19 +00:00
38 lines
1.2 KiB
Clojure
38 lines
1.2 KiB
Clojure
|
(xor
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(call relay ("op" "identity") [])
|
||
|
|
(call node_1 (echo_service "echo") [names] array_result)
|
||
|
|
)
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(call relay ("op" "identity") [])
|
||
|
|
(call %init_peer_id% (returnService "run") [array_result])
|
||
|
|
)
|
||
|
|
(seq
|
||
|
|
(fold array_result item
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(call relay ("op" "identity") [])
|
||
|
|
(call node_2 (greeting_service_1 "greeting") [item.$.["echo"]! greeter] $greeter_results)
|
||
|
|
)
|
||
|
|
(seq
|
||
|
|
(call relay ("op" "identity") [])
|
||
|
|
(next item)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
(seq
|
||
|
|
(call relay ("op" "identity") [])
|
||
|
|
(call %init_peer_id% ("returnService" "run") [$greeter_results])
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
(seq
|
||
|
|
(call relay ("op" "identity") [])
|
||
|
|
(call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%])
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|