mirror of
https://github.com/fluencelabs/examples
synced 2024-12-13 23:05:40 +00:00
44 lines
2.1 KiB
Clojure
44 lines
2.1 KiB
Clojure
(xor
|
|
(seq
|
|
(call node_1 (service “get_latest_block”) [“api_key”] hex_result)
|
|
(call %init_peer_id% (returnService “run”) [hex_result])
|
|
;; result is latest block number as a hex string
|
|
(call node_4 (service “hex_to_int”) [hex_result] result)
|
|
(call %init_peer_id% (returnService “run”) [result])
|
|
;; result is latest block number as a u64
|
|
|
|
(par
|
|
(seq
|
|
(call node_2 (service “get_block”) [“api_key” result] result_0_0)
|
|
(call %init_peer_id% (returnService “run”) result_0_0)
|
|
;; returns a json string for block
|
|
(call node_3 (service “extract_miner) [result_0_0] result_0_1)
|
|
(call %init_peer_id% (returnService “run”) [result_0_1])
|
|
;; returns the miner address as hex string
|
|
)
|
|
(seq
|
|
(call node_2 (service “get_block”) [“api_key” result-1] result_1_0)
|
|
(call %init_peer_id% (returnService “run”) result_1_0)
|
|
(call node_3 (service “extract_miner) [result_1_0] result_1_1)
|
|
(call %init_peer_id% (returnService “run”) [result_1_1])
|
|
)
|
|
(seq
|
|
(call node_2 (service “get_block”) [“api_key” result-2] result_2_0)
|
|
(call %init_peer_id% (returnService “run”) result_2_0)
|
|
(call node_3 (service “extract_miner) [result_2_0] result_2_1)
|
|
(call %init_peer_id% (returnService “run”) [result_2_1])
|
|
)
|
|
(seq
|
|
(call node_2 (service “get_block”) [“api_key” result-3] result_3_0)
|
|
(call %init_peer_id% (returnService “run”) result_3_0)
|
|
(call node_3 (service “extract_miner) [result_3_0] result_3_1)
|
|
(call %init_peer_id% (returnService “run”) [result_3_1])
|
|
)
|
|
)
|
|
|
|
)
|
|
(seq
|
|
(call relay (“op” “identity”) [])
|
|
(call %init_peer_id% (returnService “run”) [“XOR FAILED” %last_error%])
|
|
)
|
|
) |