mirror of
https://github.com/fluencelabs/examples
synced 2025-04-25 10:42:16 +00:00
67 lines
1.6 KiB
Plaintext
67 lines
1.6 KiB
Plaintext
|
(xor
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
||
|
|
(call %init_peer_id% ("getDataSrv" "node") [] node)
|
||
|
|
)
|
||
|
|
(call %init_peer_id% ("getDataSrv" "oracle_service_id") [] oracle_service_id)
|
||
|
|
)
|
||
|
|
(call %init_peer_id% ("getDataSrv" "min_points") [] min_points)
|
||
|
|
)
|
||
|
|
(call -relay- ("op" "noop") [])
|
||
|
|
)
|
||
|
|
(xor
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(call node ("op" "string_to_b58") [node] k)
|
||
|
|
(call node ("kad" "neighborhood") [k false] nodes)
|
||
|
|
)
|
||
|
|
(fold nodes n
|
||
|
|
(par
|
||
|
|
(seq
|
||
|
|
(xor
|
||
|
|
(call n ("peer" "timestamp_ms") [] $res)
|
||
|
|
(null)
|
||
|
|
)
|
||
|
|
(call node ("op" "noop") [])
|
||
|
|
)
|
||
|
|
(next n)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
(call node ("op" "identity") [$res.$.[9]!])
|
||
|
|
)
|
||
|
|
(seq
|
||
|
|
(seq
|
||
|
|
(call -relay- ("op" "noop") [])
|
||
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
||
|
|
)
|
||
|
|
(call -relay- ("op" "noop") [])
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
(xor
|
||
|
|
(call node (oracle_service_id "point_estimate") [$res min_points] oracle)
|
||
|
|
(seq
|
||
|
|
(call -relay- ("op" "noop") [])
|
||
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
(call -relay- ("op" "noop") [])
|
||
|
|
)
|
||
|
|
(xor
|
||
|
|
(call %init_peer_id% ("callbackSrv" "response") [oracle])
|
||
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 3])
|
||
|
|
)
|
||
|
|
)
|
||
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 4])
|
||
|
|
)
|