mirror of
https://github.com/fluencelabs/examples
synced 2025-04-25 10:42:16 +00:00
53 lines
1.8 KiB
Clojure
53 lines
1.8 KiB
Clojure
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call node_1 (service_1 "get_latest_block") [api_key] hex_block_result)
|
|
)
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call %init_peer_id% (returnService "run") [hex_block_result])
|
|
)
|
|
)
|
|
(seq
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call node_2 (service_2 "hex_to_int") [hex_block_result] int_block_result) ; "0xb69e2e"
|
|
; (call node_2 (service_2 "hex_to_int") ["0xb69e2e"] int_block_result)
|
|
)
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call %init_peer_id% (returnService "run") [int_block_result])
|
|
)
|
|
)
|
|
)
|
|
(seq
|
|
(par
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call node_1 (service_1 "get_block") [api_key int_block_result] block_result)
|
|
)
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call %init_peer_id% (returnService "run") [block_result])
|
|
)
|
|
)
|
|
(par
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call node_1 (service_1 "get_block") [api_key int_block_result-1] block_result_1)
|
|
)
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call %init_peer_id% (returnService "run") [block_result_1])
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(seq
|
|
(call relay ("op" "identity") [])
|
|
(call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%])
|
|
)
|
|
) |