tx · 8CWW4T4QU5LTC2tvb67AganywSNR4tzUrMFGUCdVS7Ly

3N4ziXSMRverXyxHDUKKMR9MHXnB3TyU3Yh:  -0.01000000 Waves

2023.04.18 10:20 [2539686] smart account 3N4ziXSMRverXyxHDUKKMR9MHXnB3TyU3Yh > SELF 0.00000000 Waves

{ "type": 13, "id": "8CWW4T4QU5LTC2tvb67AganywSNR4tzUrMFGUCdVS7Ly", "fee": 1000000, "feeAssetId": null, "timestamp": 1681802453489, "version": 2, "chainId": 84, "sender": "3N4ziXSMRverXyxHDUKKMR9MHXnB3TyU3Yh", "senderPublicKey": "EU9obW1yVhR8qug3EmXPeew3DMagvJFQzY5Ku8bmcsU7", "proofs": [ "5c48CRDgD8NCJX1rHgBb4D52FAvLVbC1yekLS4YhyHyKXL15MwNesELVPCCbfaR3isju9ySbHM2noVoAiTCo9FY8" ], "script": "base64:BgICCAINAANTRVACAl9fABBjb250cmFjdEZpbGVuYW1lAgl0ZXN0LnJpZGUBEGtleVB1YmxpY0tleUxpc3QACQC5CQIJAMwIAgICJXMJAMwIAgIVbXVsdGlzaWdQdWJsaWNLZXlMaXN0BQNuaWwFA1NFUAEIdGhyb3dFcnIBAXMJAAIBCQCsAgIJAKwCAgUQY29udHJhY3RGaWxlbmFtZQICOiAFAXMBHGdldE11bHRpc2lnUHViS2V5c0xpc3RPclVuaXQABBJyYXdNdWx0aXNpZ1B1YktleXMJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBEGtleVB1YmxpY0tleUxpc3QAAgAJALUJAgUScmF3TXVsdGlzaWdQdWJLZXlzBQNTRVABD2NvbXBhcmVGdW5jdGlvbgIBYQFiAwkAAAIFAWEFAWIAAQAAAQ1jb21wYXJlSGVscGVyAgNsc3QBYQQJJHQwNTY5NTk1BQNsc3QEBnJlc3VsdAgFCSR0MDU2OTU5NQJfMQQGZXhwZWN0CAUJJHQwNTY5NTk1Al8yCQCUCgIJAM0IAgUGcmVzdWx0CQEPY29tcGFyZUZ1bmN0aW9uAgUGZXhwZWN0BQFhBQZleHBlY3QBB2NvbXBhcmUCBGxpc3QBYQoAAiRsBQRsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwFAWEKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDWNvbXBhcmVIZWxwZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoBBWFjY3VtAgNzdW0DdmFsCQBkAgUDc3VtBQN2YWwBB3N1bUxpc3QBBGxpc3QKAAIkbAUEbGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEFYWNjdW0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoBEWNvbXBhcmVMaXN0SGVscGVyAgFhAWIECSR0MDkyNTk0NgUBYQQGcmVzdWx0CAUJJHQwOTI1OTQ2Al8xBANsc3QIBQkkdDA5MjU5NDYCXzIEC2NvbXBhcmVMaXN0CAkBB2NvbXBhcmUCBQNsc3QFAWICXzEEA3N1bQkBB3N1bUxpc3QBBQtjb21wYXJlTGlzdAkAlAoCCQDNCAIFBnJlc3VsdAUDc3VtBQNsc3QBCGxpc3RMaXN0AgVsaXN0MQVsaXN0MgoAAiRsBQVsaXN0MQoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsBQVsaXN0MgoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQERY29tcGFyZUxpc3RIZWxwZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoBBHRlc3QBAWEEBWxpc3QxCQDMCAICAWEJAMwIAgIBYwkAzAgCAgFlBQNuaWwEBWxpc3QyCQDMCAICAWEJAMwIAgIBYgkAzAgCAgFjCQDMCAICAWQJAMwIAgIBZQkAzAgCAgFjCQDMCAICAWMJAMwIAgIBZQUDbmlsCQEIbGlzdExpc3QCBQVsaXN0MQUFbGlzdDIAALATTJ0=", "height": 2539686, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 5YA97ZDaCErpUN5tRHN1c47KbUzqNcDg6iYg55tBpPB9 Next: G1Jxc9jMKUgV9B57hFH4hYftH3YEXoqYq197V4cVyihc Diff:
OldNewDifferences
6565 }
6666
6767
68+func compareListHelper (a,b) = {
69+ let $t0925946 = a
70+ let result = $t0925946._1
71+ let lst = $t0925946._2
72+ let compareList = compare(lst, b)._1
73+ let sum = sumList(compareList)
74+ $Tuple2((result :+ sum), lst)
75+ }
76+
77+
78+func listList (list1,list2) = {
79+ let $l = list1
80+ let $s = size($l)
81+ let $acc0 = $Tuple2(nil, list2)
82+ func $f0_1 ($a,$i) = if (($i >= $s))
83+ then $a
84+ else compareListHelper($a, $l[$i])
85+
86+ func $f0_2 ($a,$i) = if (($i >= $s))
87+ then $a
88+ else throw("List size exceeds 10")
89+
90+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
91+ }
92+
93+
6894 func test (a) = {
6995 let list1 = ["a", "c", "e"]
7096 let list2 = ["a", "b", "c", "d", "e", "c", "c", "e"]
71- let compareList = compare(list2, a)._1
72- $Tuple2(sumList(compareList), compareList)
97+ listList(list1, list2)
7398 }
7499
75100
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let SEP = "__"
55
66 let contractFilename = "test.ride"
77
88 func keyPublicKeyList () = makeString(["%s", "multisigPublicKeyList"], SEP)
99
1010
1111 func throwErr (s) = throw(((contractFilename + ": ") + s))
1212
1313
1414 func getMultisigPubKeysListOrUnit () = {
1515 let rawMultisigPubKeys = valueOrElse(getString(this, keyPublicKeyList()), "")
1616 split(rawMultisigPubKeys, SEP)
1717 }
1818
1919
2020 func compareFunction (a,b) = if ((a == b))
2121 then 1
2222 else 0
2323
2424
2525 func compareHelper (lst,a) = {
2626 let $t0569595 = lst
2727 let result = $t0569595._1
2828 let expect = $t0569595._2
2929 $Tuple2((result :+ compareFunction(expect, a)), expect)
3030 }
3131
3232
3333 func compare (list,a) = {
3434 let $l = list
3535 let $s = size($l)
3636 let $acc0 = $Tuple2(nil, a)
3737 func $f0_1 ($a,$i) = if (($i >= $s))
3838 then $a
3939 else compareHelper($a, $l[$i])
4040
4141 func $f0_2 ($a,$i) = if (($i >= $s))
4242 then $a
4343 else throw("List size exceeds 10")
4444
4545 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
4646 }
4747
4848
4949 func accum (sum,val) = (sum + val)
5050
5151
5252 func sumList (list) = {
5353 let $l = list
5454 let $s = size($l)
5555 let $acc0 = 0
5656 func $f0_1 ($a,$i) = if (($i >= $s))
5757 then $a
5858 else accum($a, $l[$i])
5959
6060 func $f0_2 ($a,$i) = if (($i >= $s))
6161 then $a
6262 else throw("List size exceeds 10")
6363
6464 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
6565 }
6666
6767
68+func compareListHelper (a,b) = {
69+ let $t0925946 = a
70+ let result = $t0925946._1
71+ let lst = $t0925946._2
72+ let compareList = compare(lst, b)._1
73+ let sum = sumList(compareList)
74+ $Tuple2((result :+ sum), lst)
75+ }
76+
77+
78+func listList (list1,list2) = {
79+ let $l = list1
80+ let $s = size($l)
81+ let $acc0 = $Tuple2(nil, list2)
82+ func $f0_1 ($a,$i) = if (($i >= $s))
83+ then $a
84+ else compareListHelper($a, $l[$i])
85+
86+ func $f0_2 ($a,$i) = if (($i >= $s))
87+ then $a
88+ else throw("List size exceeds 10")
89+
90+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
91+ }
92+
93+
6894 func test (a) = {
6995 let list1 = ["a", "c", "e"]
7096 let list2 = ["a", "b", "c", "d", "e", "c", "c", "e"]
71- let compareList = compare(list2, a)._1
72- $Tuple2(sumList(compareList), compareList)
97+ listList(list1, list2)
7398 }
7499
75100
76101

github/deemru/w8io/873ac7e 
19.95 ms