tx · 8uqSFvmb26LJupXD9WsG7tKCJRXuqSasxPkEWGwCTSww

3P5TFcAHAcmaq42Y4jTS2tDTJkXpYzq4FFp:  -0.00100000 Waves

2022.11.19 09:42 [3389067] smart account 3P5TFcAHAcmaq42Y4jTS2tDTJkXpYzq4FFp > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8uqSFvmb26LJupXD9WsG7tKCJRXuqSasxPkEWGwCTSww",
    "fee": 100000,
    "feeAssetId": null,
    "timestamp": 1668840136286,
    "version": 2,
    "chainId": 87,
    "sender": "3P5TFcAHAcmaq42Y4jTS2tDTJkXpYzq4FFp",
    "senderPublicKey": "9RM6atHhnvLzL1ARgMPG3NA6VUSDasA42orHatCS3t56",
    "proofs": [
        "55pWGa3ELArcK1ciuWpBCR15ghbj8395zagK3dyC5iPW9YtAUPkFy7mzdtM6FP59W8J227UEEoQ133ZvQXtD83vA"
    ],
    "script": "base64:BgIHCAISAwoBCAEADGFkbWluQWRkcmVzcwkBB0FkZHJlc3MBARoBVzQU33FERt8wVNH3uJxzRQyrOiubTY4mYQEBaQEIdXNkbl8xMDABBGFkZHIDCQECIT0CCAUBaQxvcmlnaW5DYWxsZXIFDGFkbWluQWRkcmVzcwkAAgECEW9ubHkgYWRtaW4gY2FuIGRvBAJhcgkAtQkCBQRhZGRyAgE7AwkAZwIJAJADAQUCYXIAAwQEaW52MQkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFAmFyAAACCHVzZG5fMTAwCQDMCAIAAQUDbmlsBQNuaWwDCQAAAgUEaW52MQUEaW52MQQEaW52MgkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFAmFyAAECCHVzZG5fMTAwCQDMCAIAAgUDbmlsBQNuaWwDCQAAAgUEaW52MgUEaW52MgQEaW52MwkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFAmFyAAICCHVzZG5fMTAwCQDMCAIAAwUDbmlsBQNuaWwDCQAAAgUEaW52MwUEaW52MwMJAGcCCQCQAwEFAmFyAAQEBGludjQJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQJhcgADAgh1c2RuXzEwMAkAzAgCAAQFA25pbAUDbmlsAwkAAAIFBGludjQFBGludjQDCQBnAgkAkAMBBQJhcgAFBARpbnY1CQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUCYXIABAIIdXNkbl8xMDAJAMwIAgAFBQNuaWwFA25pbAMJAAACBQRpbnY1BQRpbnY1CQCUCgIFA25pbAAFCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQCUCgIFA25pbAAECQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQCUCgIFA25pbAADCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQINaW52YWxpZCBhcnJheQDZTT9v",
    "height": 3389067,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: E7pWqpJ8v2JpMo3vnaSJo26DF1Lpy2zcjuqLq2nWnYhS
Next: 7pQhPt2vD3e9CfdHhtYe4EPikRzC4Yfozuhf8is7mncM

Diff: 
Old
New
Differences
8
8
 
    then throw("only admin can do")
9
9
 
    else {
10
10
 
        let ar = split(addr, ";")
11
-
        func foldFunc (accum,next) =         {
12
-
            let address = addressFromStringValue(next)
13
-
            if ((address == address))
14
-
                then (accum + 1)
15
-
                else throw("Strict value is not equal to itself.")
16
-
            }
17
-
18
-
        let foldResult = {
19
-
            let $l = ar
20
-
            let $s = size($l)
21
-
            let $acc0 = 0
22
-
            func $f0_1 ($a,$i) =             if (($i >= $s))
23
-
                then $a
24
-
                else foldFunc($a, $l[$i])
25
-
26
-
            func $f0_2 ($a,$i) =             if (($i >= $s))
27
-
                then $a
28
-
                else throw("List size exceeds 10")
29
-
30
-
            $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)
31
-
            }
32
-
        if ((foldResult == foldResult))
33
-
            then $Tuple2(nil, ar)
34
-
            else throw("Strict value is not equal to itself.")
11
+
        if ((size(ar) >= 3))
12
+
            then {
13
+
                let inv1 = invoke(addressFromStringValue(ar[0]), "usdn_100", [1], nil)
14
+
                if ((inv1 == inv1))
15
+
                    then {
16
+
                        let inv2 = invoke(addressFromStringValue(ar[1]), "usdn_100", [2], nil)
17
+
                        if ((inv2 == inv2))
18
+
                            then {
19
+
                                let inv3 = invoke(addressFromStringValue(ar[2]), "usdn_100", [3], nil)
20
+
                                if ((inv3 == inv3))
21
+
                                    then if ((size(ar) >= 4))
22
+
                                        then {
23
+
                                            let inv4 = invoke(addressFromStringValue(ar[3]), "usdn_100", [4], nil)
24
+
                                            if ((inv4 == inv4))
25
+
                                                then if ((size(ar) >= 5))
26
+
                                                    then {
27
+
                                                        let inv5 = invoke(addressFromStringValue(ar[4]), "usdn_100", [5], nil)
28
+
                                                        if ((inv5 == inv5))
29
+
                                                            then $Tuple2(nil, 5)
30
+
                                                            else throw("Strict value is not equal to itself.")
31
+
                                                        }
32
+
                                                    else $Tuple2(nil, 4)
33
+
                                                else throw("Strict value is not equal to itself.")
34
+
                                            }
35
+
                                        else $Tuple2(nil, 3)
36
+
                                    else throw("Strict value is not equal to itself.")
37
+
                                }
38
+
                            else throw("Strict value is not equal to itself.")
39
+
                        }
40
+
                    else throw("Strict value is not equal to itself.")
41
+
                }
42
+
            else throw("invalid array")
35
43
 
        }
36
44
 
37
45
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let adminAddress = Address(base58'3P6gGsVQbD2xgmaNxN7Rj3arohPsBxvo5GC')
5
5
 
6
6
 
@Callable(i)
7
7
 
func usdn_100 (addr) = if ((i.originCaller != adminAddress))
8
8
 
    then throw("only admin can do")
9
9
 
    else {
10
10
 
        let ar = split(addr, ";")
11
-
        func foldFunc (accum,next) =         {
12
-
            let address = addressFromStringValue(next)
13
-
            if ((address == address))
14
-
                then (accum + 1)
15
-
                else throw("Strict value is not equal to itself.")
16
-
            }
17
-
18
-
        let foldResult = {
19
-
            let $l = ar
20
-
            let $s = size($l)
21
-
            let $acc0 = 0
22
-
            func $f0_1 ($a,$i) =             if (($i >= $s))
23
-
                then $a
24
-
                else foldFunc($a, $l[$i])
25
-
26
-
            func $f0_2 ($a,$i) =             if (($i >= $s))
27
-
                then $a
28
-
                else throw("List size exceeds 10")
29
-
30
-
            $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)
31
-
            }
32
-
        if ((foldResult == foldResult))
33
-
            then $Tuple2(nil, ar)
34
-
            else throw("Strict value is not equal to itself.")
11
+
        if ((size(ar) >= 3))
12
+
            then {
13
+
                let inv1 = invoke(addressFromStringValue(ar[0]), "usdn_100", [1], nil)
14
+
                if ((inv1 == inv1))
15
+
                    then {
16
+
                        let inv2 = invoke(addressFromStringValue(ar[1]), "usdn_100", [2], nil)
17
+
                        if ((inv2 == inv2))
18
+
                            then {
19
+
                                let inv3 = invoke(addressFromStringValue(ar[2]), "usdn_100", [3], nil)
20
+
                                if ((inv3 == inv3))
21
+
                                    then if ((size(ar) >= 4))
22
+
                                        then {
23
+
                                            let inv4 = invoke(addressFromStringValue(ar[3]), "usdn_100", [4], nil)
24
+
                                            if ((inv4 == inv4))
25
+
                                                then if ((size(ar) >= 5))
26
+
                                                    then {
27
+
                                                        let inv5 = invoke(addressFromStringValue(ar[4]), "usdn_100", [5], nil)
28
+
                                                        if ((inv5 == inv5))
29
+
                                                            then $Tuple2(nil, 5)
30
+
                                                            else throw("Strict value is not equal to itself.")
31
+
                                                        }
32
+
                                                    else $Tuple2(nil, 4)
33
+
                                                else throw("Strict value is not equal to itself.")
34
+
                                            }
35
+
                                        else $Tuple2(nil, 3)
36
+
                                    else throw("Strict value is not equal to itself.")
37
+
                                }
38
+
                            else throw("Strict value is not equal to itself.")
39
+
                        }
40
+
                    else throw("Strict value is not equal to itself.")
41
+
                }
42
+
            else throw("invalid array")
35
43
 
        }
36
44
 
37
45
 

github/deemru/w8io/3ef1775 
38.68 ms ◑