tx · Fgcy2bPmBrRkXrpg9fZ13m3HirLagYnpCARTB6gcvS8p

3N272hFk6FBTgLM5HqpYVcCVmMcSCrEma9T:  -0.01000000 Waves

2023.06.22 22:59 [2634299] smart account 3N272hFk6FBTgLM5HqpYVcCVmMcSCrEma9T > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Fgcy2bPmBrRkXrpg9fZ13m3HirLagYnpCARTB6gcvS8p",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1687463984364,
    "version": 2,
    "chainId": 84,
    "sender": "3N272hFk6FBTgLM5HqpYVcCVmMcSCrEma9T",
    "senderPublicKey": "97sWz4UZWijkagGprhucQHR7b7nN6FfojMELnzuFEyY1",
    "proofs": [
        "2PJYuauB3KqvKHcMCVFRTBBs6h361z1cfiTGwujA4xY4ijhf93FKuejEtMv7mEUR3ijXoQcJi4Kpah3ZV5RsrvX4"
    ],
    "script": "base64:AAIFAAAAAAAAAAcIAhIDCgEYAAAABgAAAAAJY29sb3JMaXN0CQAETAAAAAICAAAABGFxdWEJAARMAAAAAgIAAAAFYmxhY2sJAARMAAAAAgIAAAAEYmx1ZQkABEwAAAACAgAAAAdmdWNoc2lhCQAETAAAAAICAAAABGdyYXkJAARMAAAAAgIAAAAFZ3JlZW4JAARMAAAAAgIAAAAEbGltZQkABEwAAAACAgAAAAZtYXJvb24JAARMAAAAAgIAAAAEbmF2eQkABEwAAAACAgAAAAVvbGl2ZQkABEwAAAACAgAAAAZwdXJwbGUJAARMAAAAAgIAAAADcmVkCQAETAAAAAICAAAABnNpbHZlcgkABEwAAAACAgAAAAR0ZWFsCQAETAAAAAICAAAABXdoaXRlCQAETAAAAAICAAAABnllbGxvdwUAAAADbmlsAQAAAAttYXBTdHJUb1N0cgAAAAIAAAAFYWNjdW0AAAAEbmV4dAkABEwAAAACBQAAAARuZXh0BQAAAAVhY2N1bQEAAAAJcGFpbnRPdmVyAAAAAgAAAAVhY2N1bQAAAARuZXh0BAAAAAVhcnJheQkABLUAAAACBQAAAARuZXh0AgAAAAEtAwMDCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgUAAAAJY29sb3JMaXN0CQABkQAAAAIFAAAABWFycmF5AAAAAAAAAAAACQAAZgAAAAIAAAAAAAAAAGQJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAAVhcnJheQAAAAAAAAAAAQcJAABmAAAAAgAAAAAAAAAAZAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAABWFycmF5AAAAAAAAAAACBwkABE4AAAACBQAAAAVhY2N1bQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAAZEAAAACBQAAAAVhcnJheQAAAAAAAAAAAQIAAAABLQkAAZEAAAACBQAAAAVhcnJheQAAAAAAAAAAAgkAAZEAAAACBQAAAAVhcnJheQAAAAAAAAAAAAUAAAADbmlsCQAAAgAAAAECAAAACklzJ3Qgd2FsaWQBAAAACGdldExvZ0lEAAAAAAQAAAAFbG9nSUQJAAQfAAAAAQIAAAAFbG9nSUQDCQEAAAACIT0AAAACBQAAAAVsb2dJRAUAAAAEdW5pdAkBAAAAEUBleHRyTmF0aXZlKDEwNTUpAAAAAQIAAAAFbG9nSUQAAAAAAAAAAAABAAAAFmxpc3RTdHJpbmdUb0xpc3RTdHJpbmcAAAABAAAAA2FycgoAAAAAAiRsBQAAAANhcnIKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAttYXBTdHJUb1N0cgAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyA1MAkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoAAAAAAAAAAAsAAAAAAAAAAAwAAAAAAAAAAA0AAAAAAAAAAA4AAAAAAAAAAA8AAAAAAAAAABAAAAAAAAAAABEAAAAAAAAAABIAAAAAAAAAABMAAAAAAAAAABQAAAAAAAAAABUAAAAAAAAAABYAAAAAAAAAABcAAAAAAAAAABgAAAAAAAAAABkAAAAAAAAAABoAAAAAAAAAABsAAAAAAAAAABwAAAAAAAAAAB0AAAAAAAAAAB4AAAAAAAAAAB8AAAAAAAAAACAAAAAAAAAAACEAAAAAAAAAACIAAAAAAAAAACMAAAAAAAAAACQAAAAAAAAAACUAAAAAAAAAACYAAAAAAAAAACcAAAAAAAAAACgAAAAAAAAAACkAAAAAAAAAACoAAAAAAAAAACsAAAAAAAAAACwAAAAAAAAAAC0AAAAAAAAAAC4AAAAAAAAAAC8AAAAAAAAAADAAAAAAAAAAADEAAAAAAAAAADIBAAAAF2xpc3RJbnRDb21wcmVzc1RvU3RyaW5nAAAAAQAAAANhcnIJAAS5AAAAAgkBAAAAFmxpc3RTdHJpbmdUb0xpc3RTdHJpbmcAAAABBQAAAANhcnICAAAAAXwAAAABAAAAAWkBAAAABGRyYXcAAAABAAAABnBpeGVscwQAAAAOdGV4dFBpeGVsc0xpc3QJAARMAAAAAgIAAAAJcmVkLTE3LTY3CQAETAAAAAICAAAACmJsdWUtMTgtNjcJAARMAAAAAgIAAAAJcmVkLTE5LTY3CQAETAAAAAICAAAAC2dyZWVuLTIwLTY3BQAAAANuaWwEAAAACG5ld0xvZ0lECQAAZAAAAAIJAQAAAAhnZXRMb2dJRAAAAAAAAAAAAAAAAAEJAAROAAAAAgoAAAAAAiRsBQAAAAZwaXhlbHMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAlwYWludE92ZXIAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAAAAAAALAAAAAAAAAAAMAAAAAAAAAAANAAAAAAAAAAAOAAAAAAAAAAAPAAAAAAAAAAAQAAAAAAAAAAARAAAAAAAAAAASAAAAAAAAAAATAAAAAAAAAAAUAAAAAAAAAAAVAAAAAAAAAAAWAAAAAAAAAAAXAAAAAAAAAAAYAAAAAAAAAAAZAAAAAAAAAAAaAAAAAAAAAAAbAAAAAAAAAAAcAAAAAAAAAAAdAAAAAAAAAAAeAAAAAAAAAAAfAAAAAAAAAAAgAAAAAAAAAAAhAAAAAAAAAAAiAAAAAAAAAAAjAAAAAAAAAAAkAAAAAAAAAAAlAAAAAAAAAAAmAAAAAAAAAAAnAAAAAAAAAAAoAAAAAAAAAAApAAAAAAAAAAAqAAAAAAAAAAArAAAAAAAAAAAsAAAAAAAAAAAtAAAAAAAAAAAuAAAAAAAAAAAvAAAAAAAAAAAwAAAAAAAAAAAxAAAAAAAAAAAyCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgIAAAAEbG9nXwkAAaQAAAABBQAAAAhuZXdMb2dJRAkBAAAAF2xpc3RJbnRDb21wcmVzc1RvU3RyaW5nAAAAAQUAAAAOdGV4dFBpeGVsc0xpc3QFAAAAA25pbAAAAAA29Gf1",
    "height": 2634299,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 24cUTNBiFaASAcbmv88pTLn9DXMGYHsZsBxwYcC9e6i2
Next: none

Diff: 
Old
New
Differences
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let colorList = ["aqua", "black", "blue", "fuchsia", "gray", "green", "lime", "maroon", "navy", "olive", "purple", "red", "silver", "teal", "white", "yellow"]
5
5
 
6
-
func mapIntToSum (accum,next) = (accum + next)
7
-
8
-
9
-
func pixelValidatior (accum,next) = {
10
-
    let array = split(next, "-")
11
-
    if (if (if (if (accum)
12
-
        then containsElement(colorList, array[0])
13
-
        else false)
14
-
        then (100 > parseIntValue(array[1]))
15
-
        else false)
16
-
        then (100 > parseIntValue(array[2]))
17
-
        else false)
18
-
        then true
19
-
        else false
20
-
    }
6
+
func mapStrToStr (accum,next) = next :: accum
21
7
 
22
8
 
23
9
 
func paintOver (accum,next) = {
32
18
 
    }
33
19
 
34
20
 
35
-
@Callable(i)
36
-
func draw (pixels) = {
37
-
    let textPixelsList = ["red-17-67", "blue-18-67", "red-19-67", "green-20-67"]
38
-
    let $l = pixels
21
+
func getLogID () = {
22
+
    let logID = getInteger("logID")
23
+
    if ((logID != unit))
24
+
        then getIntegerValue("logID")
25
+
        else 0
26
+
    }
27
+
28
+
29
+
func listStringToListString (arr) = {
30
+
    let $l = arr
39
31
 
    let $s = size($l)
40
32
 
    let $acc0 = nil
41
33
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
42
34
 
        then $a
43
-
        else paintOver($a, $l[$i])
35
+
        else mapStrToStr($a, $l[$i])
44
36
 
45
37
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
46
38
 
        then $a
50
42
 
    }
51
43
 
52
44
 
45
+
func listIntCompressToString (arr) = makeString(listStringToListString(arr), "|")
46
+
47
+
48
+
@Callable(i)
49
+
func draw (pixels) = {
50
+
    let textPixelsList = ["red-17-67", "blue-18-67", "red-19-67", "green-20-67"]
51
+
    let newLogID = (getLogID() + 1)
52
+
    ({
53
+
        let $l = pixels
54
+
        let $s = size($l)
55
+
        let $acc0 = nil
56
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
57
+
            then $a
58
+
            else paintOver($a, $l[$i])
59
+
60
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
61
+
            then $a
62
+
            else throw("List size exceeds 50")
63
+
64
+
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
65
+
        } ++ [StringEntry(("log_" + toString(newLogID)), listIntCompressToString(textPixelsList))])
66
+
    }
67
+
68
+

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let colorList = ["aqua", "black", "blue", "fuchsia", "gray", "green", "lime", "maroon", "navy", "olive", "purple", "red", "silver", "teal", "white", "yellow"]
5
5
 
6
-
func mapIntToSum (accum,next) = (accum + next)
7
-
8
-
9
-
func pixelValidatior (accum,next) = {
10
-
    let array = split(next, "-")
11
-
    if (if (if (if (accum)
12
-
        then containsElement(colorList, array[0])
13
-
        else false)
14
-
        then (100 > parseIntValue(array[1]))
15
-
        else false)
16
-
        then (100 > parseIntValue(array[2]))
17
-
        else false)
18
-
        then true
19
-
        else false
20
-
    }
6
+
func mapStrToStr (accum,next) = next :: accum
21
7
 
22
8
 
23
9
 
func paintOver (accum,next) = {
24
10
 
    let array = split(next, "-")
25
11
 
    if (if (if (containsElement(colorList, array[0]))
26
12
 
        then (100 > parseIntValue(array[1]))
27
13
 
        else false)
28
14
 
        then (100 > parseIntValue(array[2]))
29
15
 
        else false)
30
16
 
        then (accum ++ [StringEntry(((array[1] + "-") + array[2]), array[0])])
31
17
 
        else throw("Is't walid")
32
18
 
    }
33
19
 
34
20
 
35
-
@Callable(i)
36
-
func draw (pixels) = {
37
-
    let textPixelsList = ["red-17-67", "blue-18-67", "red-19-67", "green-20-67"]
38
-
    let $l = pixels
21
+
func getLogID () = {
22
+
    let logID = getInteger("logID")
23
+
    if ((logID != unit))
24
+
        then getIntegerValue("logID")
25
+
        else 0
26
+
    }
27
+
28
+
29
+
func listStringToListString (arr) = {
30
+
    let $l = arr
39
31
 
    let $s = size($l)
40
32
 
    let $acc0 = nil
41
33
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
42
34
 
        then $a
43
-
        else paintOver($a, $l[$i])
35
+
        else mapStrToStr($a, $l[$i])
44
36
 
45
37
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
46
38
 
        then $a
47
39
 
        else throw("List size exceeds 50")
48
40
 
49
41
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
50
42
 
    }
51
43
 
52
44
 
45
+
func listIntCompressToString (arr) = makeString(listStringToListString(arr), "|")
46
+
47
+
48
+
@Callable(i)
49
+
func draw (pixels) = {
50
+
    let textPixelsList = ["red-17-67", "blue-18-67", "red-19-67", "green-20-67"]
51
+
    let newLogID = (getLogID() + 1)
52
+
    ({
53
+
        let $l = pixels
54
+
        let $s = size($l)
55
+
        let $acc0 = nil
56
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
57
+
            then $a
58
+
            else paintOver($a, $l[$i])
59
+
60
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
61
+
            then $a
62
+
            else throw("List size exceeds 50")
63
+
64
+
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
65
+
        } ++ [StringEntry(("log_" + toString(newLogID)), listIntCompressToString(textPixelsList))])
66
+
    }
67
+
68
+

github/deemru/w8io/169f3d6 
34.90 ms ◑