tx · 14C6tdG1EZFpvkYuVGRfc1c2V2pfn54UZBWSh4AQMnZe

3N1iBA7nz6KkAP7RaHtQxU3TC1io912SWBz:  -0.01000000 Waves

2022.04.11 15:40 [2003942] smart account 3N1iBA7nz6KkAP7RaHtQxU3TC1io912SWBz > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "14C6tdG1EZFpvkYuVGRfc1c2V2pfn54UZBWSh4AQMnZe",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1649680810592,
    "version": 1,
    "sender": "3N1iBA7nz6KkAP7RaHtQxU3TC1io912SWBz",
    "senderPublicKey": "upcZco3mz5KhMJ6hafUZU18QAKjN92atRHzDfYdeJJt",
    "proofs": [
        "2C579KFXUcJh1BSwRLT9dpUMi98wZpMwNMNUJHWBbTa5S5mLhM3krZqwvmoD2sjKPfiCc8kEgnRgsJfVzyzABhKM"
    ],
    "script": "base64:AAIFAAAAAAAAABIIAhIAEgMKAQESBwoFBAIBCB8AAAAAAAAAAwAAAANjdHgBAAAAB2RlcG9zaXQAAAAABAAAAANwbXQDCQAAZgAAAAIJAAGQAAAAAQgFAAAAA2N0eAAAAAhwYXltZW50cwAAAAAAAAAAAAkAAZEAAAACCAUAAAADY3R4AAAACHBheW1lbnRzAAAAAAAAAAAACQAAAgAAAAECAAAAHUF0IGxlYXN0IG9uZSBwYXltZW50IGV4cGVjdGVkBAAAAAdhc3NldElkAwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkBAAAABXZhbHVlAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAAG09ubHkgV0FWRVMgcGF5bWVudCBhY2NlcHRlZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkABCUAAAABCAUAAAADY3R4AAAABmNhbGxlcggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA25pbAAAAANjdHgBAAAACHdpdGhkcmF3AAAAAQAAAAZhbW91bnQEAAAAB2FkZHJlc3MJAAQlAAAAAQgFAAAAA2N0eAAAAAZjYWxsZXIEAAAAB2N1cnJlbnQJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAR0aGlzBQAAAAdhZGRyZXNzAgAAABhZb3UgZG9uJ3QgaGF2ZSBhIGRlcG9zaXQEAAAAA2FtdAMDCQAAZgAAAAIFAAAABmFtb3VudAAAAAAAAAAAAAYJAABmAAAAAgUAAAAGYW1vdW50BQAAAAdjdXJyZW50BQAAAAZhbW91bnQJAAACAAAAAQIAAABEQW1vdW50IHRvIHdpdGhkcmF3IG11c3QgYmUgbW9yZSB0aGFuIDAgYW5kIGxlc3MgdGhhbiBjdXJyZW50IGRlcG9zaXQDCQAAAAAAAAIFAAAABmFtb3VudAUAAAAHY3VycmVudAkABEwAAAACCQEAAAALRGVsZXRlRW50cnkAAAABBQAAAAdhZGRyZXNzBQAAAANuaWwJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAB2FkZHJlc3MJAABlAAAAAgUAAAAHY3VycmVudAUAAAAGYW1vdW50CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAANjdHgAAAAGY2FsbGVyBQAAAAZhbW91bnQFAAAABHVuaXQFAAAAA25pbAAAAANjdHgBAAAAC2FsbEFyZ1R5cGVzAAAABQAAAARib29sAAAAA2JpbgAAAANpbnQAAAADc3RyAAAABGxpc3QEAAAAB2luZGljZXMJAARMAAAAAgAAAAAAAAAAAQkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAMJAARMAAAAAgAAAAAAAAAABAkABEwAAAACAAAAAAAAAAAFBQAAAANuaWwKAQAAAAtjb252ZXJ0TGlzdAAAAAIAAAADYWNjAAAABWluZGV4AwkAAGcAAAACBQAAAAVpbmRleAkAAZAAAAABBQAAAARsaXN0BQAAAANhY2MEAAAAA2luZAkAAaQAAAABBQAAAAVpbmRleAkABE0AAAACBQAAAANhY2MEAAAAByRtYXRjaDAJAAGRAAAAAgUAAAAEbGlzdAUAAAAFaW5kZXgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAB0Jvb2xlYW4EAAAAAWIFAAAAByRtYXRjaDAJAQAAAAxCb29sZWFuRW50cnkAAAACCQABLAAAAAIFAAAAA2luZAIAAAAFLWJvb2wFAAAAAWIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAAWIFAAAAByRtYXRjaDAJAQAAAAtCaW5hcnlFbnRyeQAAAAIJAAEsAAAAAgUAAAADaW5kAgAAAAQtYmluBQAAAAFiAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWkFAAAAByRtYXRjaDAJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAAA2luZAIAAAAELWludAUAAAABaQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFzBQAAAAckbWF0Y2gwCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAA2luZAIAAAAELXN0cgUAAAABcwkAAAIAAAABAgAAAAtNYXRjaCBlcnJvcgkABE4AAAACCQAETAAAAAIJAQAAAAxCb29sZWFuRW50cnkAAAACAgAAAARib29sBQAAAARib29sCQAETAAAAAIJAQAAAAtCaW5hcnlFbnRyeQAAAAICAAAAA2JpbgUAAAADYmluCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAANpbnQFAAAAA2ludAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAAANzdHIFAAAAA3N0cgUAAAADbmlsCgAAAAACJGwFAAAAB2luZGljZXMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAtjb252ZXJ0TGlzdAAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA1CQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAABWejDo",
    "chainId": 84,
    "height": 2003942,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Hdfg5Mn9XTwEYRC5Lwm33iQhi79AAhz9bP86Kc3SPaQ9
Next: 4znRZigWURLw6KWiJHdC7SwFkKQ6DrV8KJqLsmaKLhMV

Diff: 
Old
New
Differences
35
35
 
@Callable(ctx)
36
36
 
func allArgTypes (bool,bin,int,str,list) = {
37
37
 
    let indices = [1, 2, 3, 4, 5]
38
-
    func convertList (acc,index) =     {
39
-
        let ind = toString(index)
40
-
        (acc :+         match list[index] {
41
-
            case b: Boolean => 
42
-
                BooleanEntry((ind + "-bool"), b)
43
-
            case b: ByteVector => 
44
-
                BinaryEntry((ind + "-bin"), b)
45
-
            case i: Int => 
46
-
                IntegerEntry((ind + "-int"), i)
47
-
            case s: String => 
48
-
                StringEntry((ind + "-str"), s)
49
-
            case _ => 
50
-
                throw("Match error")
51
-
        })
52
-
        }
38
+
    func convertList (acc,index) =     if ((index >= size(list)))
39
+
        then acc
40
+
        else {
41
+
            let ind = toString(index)
42
+
            (acc :+             match list[index] {
43
+
                case b: Boolean => 
44
+
                    BooleanEntry((ind + "-bool"), b)
45
+
                case b: ByteVector => 
46
+
                    BinaryEntry((ind + "-bin"), b)
47
+
                case i: Int => 
48
+
                    IntegerEntry((ind + "-int"), i)
49
+
                case s: String => 
50
+
                    StringEntry((ind + "-str"), s)
51
+
                case _ => 
52
+
                    throw("Match error")
53
+
            })
54
+
            }
53
55
 
54
56
 
    ([BooleanEntry("bool", bool), BinaryEntry("bin", bin), IntegerEntry("int", int), StringEntry("str", str)] ++ {
55
57
 
        let $l = indices
56
58
 
        let $s = size($l)
57
59
 
        let $acc0 = nil
58
-
        func 1 ($a,$i) =         if (($i >= $s))
60
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
59
61
 
            then $a
60
62
 
            else convertList($a, $l[$i])
61
63
 
62
-
        func 2 ($a,$i) =         if (($i >= $s))
64
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
63
65
 
            then $a
64
66
 
            else throw("List size exceeds 5")
65
67
 
66
-
        2(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5)
68
+
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
67
69
 
        })
68
70
 
    }
69
71
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
5
5
 
6
6
 
@Callable(ctx)
7
7
 
func deposit () = {
8
8
 
    let pmt = if ((size(ctx.payments) > 0))
9
9
 
        then ctx.payments[0]
10
10
 
        else throw("At least one payment expected")
11
11
 
    let assetId = if (isDefined(pmt.assetId))
12
12
 
        then value(pmt.assetId)
13
13
 
        else throw("Only WAVES payment accepted")
14
14
 
[IntegerEntry(toString(ctx.caller), pmt.amount)]
15
15
 
    }
16
16
 
17
17
 
18
18
 
19
19
 
@Callable(ctx)
20
20
 
func withdraw (amount) = {
21
21
 
    let address = toString(ctx.caller)
22
22
 
    let current = valueOrErrorMessage(getInteger(this, address), "You don't have a deposit")
23
23
 
    let amt = if (if ((amount > 0))
24
24
 
        then true
25
25
 
        else (amount > current))
26
26
 
        then amount
27
27
 
        else throw("Amount to withdraw must be more than 0 and less than current deposit")
28
28
 
    if ((amount == current))
29
29
 
        then [DeleteEntry(address)]
30
30
 
        else [IntegerEntry(address, (current - amount)), ScriptTransfer(ctx.caller, amount, unit)]
31
31
 
    }
32
32
 
33
33
 
34
34
 
35
35
 
@Callable(ctx)
36
36
 
func allArgTypes (bool,bin,int,str,list) = {
37
37
 
    let indices = [1, 2, 3, 4, 5]
38
-
    func convertList (acc,index) =     {
39
-
        let ind = toString(index)
40
-
        (acc :+         match list[index] {
41
-
            case b: Boolean => 
42
-
                BooleanEntry((ind + "-bool"), b)
43
-
            case b: ByteVector => 
44
-
                BinaryEntry((ind + "-bin"), b)
45
-
            case i: Int => 
46
-
                IntegerEntry((ind + "-int"), i)
47
-
            case s: String => 
48
-
                StringEntry((ind + "-str"), s)
49
-
            case _ => 
50
-
                throw("Match error")
51
-
        })
52
-
        }
38
+
    func convertList (acc,index) =     if ((index >= size(list)))
39
+
        then acc
40
+
        else {
41
+
            let ind = toString(index)
42
+
            (acc :+             match list[index] {
43
+
                case b: Boolean => 
44
+
                    BooleanEntry((ind + "-bool"), b)
45
+
                case b: ByteVector => 
46
+
                    BinaryEntry((ind + "-bin"), b)
47
+
                case i: Int => 
48
+
                    IntegerEntry((ind + "-int"), i)
49
+
                case s: String => 
50
+
                    StringEntry((ind + "-str"), s)
51
+
                case _ => 
52
+
                    throw("Match error")
53
+
            })
54
+
            }
53
55
 
54
56
 
    ([BooleanEntry("bool", bool), BinaryEntry("bin", bin), IntegerEntry("int", int), StringEntry("str", str)] ++ {
55
57
 
        let $l = indices
56
58
 
        let $s = size($l)
57
59
 
        let $acc0 = nil
58
-
        func 1 ($a,$i) =         if (($i >= $s))
60
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
59
61
 
            then $a
60
62
 
            else convertList($a, $l[$i])
61
63
 
62
-
        func 2 ($a,$i) =         if (($i >= $s))
64
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
63
65
 
            then $a
64
66
 
            else throw("List size exceeds 5")
65
67
 
66
-
        2(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5)
68
+
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
67
69
 
        })
68
70
 
    }
69
71
 
70
72
 

github/deemru/w8io/169f3d6 
46.59 ms ◑