tx · Bk9qDTn6B9tBS6SiCqFq3ZhTv6vU325RMRn6qMdo489y

3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o:  -0.01000000 Waves

2024.03.24 17:54 [4098195] smart account 3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Bk9qDTn6B9tBS6SiCqFq3ZhTv6vU325RMRn6qMdo489y",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1711292071854,
    "version": 2,
    "chainId": 87,
    "sender": "3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o",
    "senderPublicKey": "EKWFwVJMAk6xj9i7a2PGBZx557V7M57jEhyaZHH3mAc1",
    "proofs": [
        "f2QijfvvZxm43R34onHmqK8nwSBc2XDpuXeQSehiUErf5CHk4CYcxoxS9Zq9nc7ovxrUyfSg529wVBMcDqwMrxr"
    ],
    "script": "base64:BgIPCAISAwoBCBIGCgQICAgBBwEPZ2V0UmFuZG9tTnVtYmVyBAh2YXJpYW50cwR0eElkFGhhdGNoaW5nRmluaXNoSGVpZ2h0Bm9mZnNldAQPcmFuZG9tU2VlZEJsb2NrCQEFdmFsdWUBCQDtBwEJAGUCBRRoYXRjaGluZ0ZpbmlzaEhlaWdodAABBApyYW5kb21IYXNoCQDUFgEJAMsBAgUEdHhJZAkBBXZhbHVlAQgFD3JhbmRvbVNlZWRCbG9jawN2cmYJAGoCCQCyCQIFCnJhbmRvbUhhc2gFBm9mZnNldAUIdmFyaWFudHMBDGdldFJhbmRvbUdlbgUEZ2VuMQRnZW4yBHN0ZXAEdHhJZBRoYXRjaGluZ0ZpbmlzaEhlaWdodAQJcmFuZG9tTnVtCQEPZ2V0UmFuZG9tTnVtYmVyBAACBQR0eElkBRRoYXRjaGluZ0ZpbmlzaEhlaWdodAUEc3RlcAQDZ2VuAwkAAAIFCXJhbmRvbU51bQAABQRnZW4xBQRnZW4yBQNnZW4BDXRyeUdldEludGVnZXIBA2tleQQDdmFsBAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAUDdmFsAQhpc1N5bWJvbAIDYWNjA3N5bQMJAAACBQNzeW0IBQNhY2MCXzIJAJQKAgkAZAIIBQNhY2MCXzEAAQgFA2FjYwJfMgkAlAoCCQBkAggFA2FjYwJfMQAACAUDYWNjAl8yARBnZXRBbW91bnRPckNsZWFyAQZhbW91bnQDCQEIY29udGFpbnMCBQZhbW91bnQCATACAAUGYW1vdW50AQhjaGFyTGlzdAAJAMwIAgIBQQkAzAgCAgFCCQDMCAICAUMJAMwIAgIBRAkAzAgCAgFFCQDMCAICAUYJAMwIAgIBRwkAzAgCAgFICQDMCAICAUkJAMwIAgIBSgkAzAgCAgFLCQDMCAICAUwJAMwIAgIBTQkAzAgCAgFOCQDMCAICAU8JAMwIAgIBUAkAzAgCAgFRCQDMCAICAVIJAMwIAgIBUwkAzAgCAgFUCQDMCAICAVUJAMwIAgIBVgkAzAgCAgFXCQDMCAICAVgJAMwIAgIBWQkAzAgCAgFaBQNuaWwBDW5yT2ZUeXBlR2VuZXMBA2dlbgQIZ2Vub3R5cGUJALUJAgkAswICCQCwAgIFA2dlbgAFAAMCAAQGcGFydHMxCQCsAgIJAJEDAgUIZ2Vub3R5cGUAAAkAkQMCBQhnZW5vdHlwZQABBAZwYXJ0czIJAKwCAgkAkQMCBQhnZW5vdHlwZQACCQCRAwIFCGdlbm90eXBlAAMEBnBhcnRzMwkArAICCQCRAwIFCGdlbm90eXBlAAQJAJEDAgUIZ2Vub3R5cGUABQQGcGFydHM0CQCsAgIJAJEDAgUIZ2Vub3R5cGUABgkAkQMCBQhnZW5vdHlwZQAHBAZwYXJ0czUJAKwCAgkAkQMCBQhnZW5vdHlwZQAICQCRAwIFCGdlbm90eXBlAAkEBnBhcnRzNgkArAICCQCRAwIFCGdlbm90eXBlAAoJAJEDAgUIZ2Vub3R5cGUACwQGcGFydHM3CQCsAgIJAJEDAgUIZ2Vub3R5cGUADAkAkQMCBQhnZW5vdHlwZQANBAZwYXJ0czgJAKwCAgkAkQMCBQhnZW5vdHlwZQAOCQCRAwIFCGdlbm90eXBlAA8EBXBhcnRzCQDMCAIFBnBhcnRzMQkAzAgCBQZwYXJ0czIJAMwIAgUGcGFydHMzCQDMCAIFBnBhcnRzNAkAzAgCBQZwYXJ0czUJAMwIAgUGcGFydHM2CQDMCAIFBnBhcnRzNwkAzAgCBQZwYXJ0czgFA25pbAoBD3NvcnRQYXJ0c0J5VHlwZQIDYWNjBHBhcnQECnNwbGl0UGFydHMJALUJAgUEcGFydAIAAwkAAAIJAJEDAgUKc3BsaXRQYXJ0cwAAAgFUCQCUCgIJAM0IAggFA2FjYwJfMQkAkQMCBQpzcGxpdFBhcnRzAAEIBQNhY2MCXzIDCQAAAgkAkQMCBQpzcGxpdFBhcnRzAAACAUQJAJQKAggFA2FjYwJfMQkAzQgCCAUDYWNjAl8yCQCRAwIFCnNwbGl0UGFydHMAAQkAAgECDFVOS05PV04gVFlQRQQGcmVzdWx0CgACJGwFBXBhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPc29ydFBhcnRzQnlUeXBlAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA4CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAMJAAACBQZyZXN1bHQFBnJlc3VsdAoBE2NvbXBvc2VTdHJpbmdUdXJ0bGUCA2FjYwRjaGFyBAljaGFyQ291bnQKAAIkbAgFBnJlc3VsdAJfMQoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgAABQRjaGFyCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhpc1N5bWJvbAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgOAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgJAKwCAgkArAICBQNhY2MJAKQDAQgFCWNoYXJDb3VudAJfMQUEY2hhcgoBEWNvbXBvc2VTdHJpbmdEdWNrAgNhY2MEY2hhcgQJY2hhckNvdW50CgACJGwIBQZyZXN1bHQCXzIKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIAAAUEY2hhcgoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIaXNTeW1ib2wCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDgJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAICQCsAgIJAKwCAgUDYWNjCQCkAwEIBQljaGFyQ291bnQCXzEFBGNoYXIECnR1cnRsZUdlbnMKAAIkbAkBCGNoYXJMaXN0AAoAAiRzCQCQAwEFAiRsCgAFJGFjYzACAAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQETY29tcG9zZVN0cmluZ1R1cnRsZQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjYJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaBAhkdWNrR2VucwoAAiRsCQEIY2hhckxpc3QACgACJHMJAJADAQUCJGwKAAUkYWNjMAIACgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARFjb21wb3NlU3RyaW5nRHVjawIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMl8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjYJAQUkZjJfMgIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIJAQUkZjJfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaCQDMCAIJAQtTdHJpbmdFbnRyeQICDERFQlVHX1RVUlRMRQUKdHVydGxlR2VucwkAzAgCCQELU3RyaW5nRW50cnkCAgpERUJVR19EVUNLBQhkdWNrR2VucwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAgFpAQNwb2MBCmFzc2V0SWRTdHIEBWFzc2V0CQDZBAEFCmFzc2V0SWRTdHIED3BhcnNlZEFzc2V0SW5mbwkBBXZhbHVlAQkA7AcBBQVhc3NldAQEYm9keQgFD3BhcnNlZEFzc2V0SW5mbwtkZXNjcmlwdGlvbgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICBkRFQlVHXwUKYXNzZXRJZFN0cgUEYm9keQUDbmlsAWkBCnBvY05hbWVHZW4EBW5hbWUxBW5hbWUyBHR4SWQMZmluaXNoSGVpZ2h0BAtjb2xvclJhbmRvbQkBD2dldFJhbmRvbU51bWJlcgQABAkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQACwQFY29sb3IDCQAAAgULY29sb3JSYW5kb20AAAIBUgMJAAACBQtjb2xvclJhbmRvbQABAgFEAwkAAAIFC2NvbG9yUmFuZG9tAAICAVMCAUcECnBhcmVudDFHZW4JALUJAgUFbmFtZTECAAQKcGFyZW50MkdlbgkAtQkCBQVuYW1lMgIABANnZW4JAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIFTVROVC0JAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ABQkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAUAAAkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ABgkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAYAAQkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ABwkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAcAAgkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ACAkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAgAAwkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ACQkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAkABAkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ACgkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAoABQkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ACwkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAsABgkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQJAQxnZXRSYW5kb21HZW4FCQCsAgIJAJEDAgUKcGFyZW50MUdlbgAACQCRAwIFCnBhcmVudDFHZW4ADAkArAICCQCRAwIFCnBhcmVudDJHZW4AAAkAkQMCBQpwYXJlbnQyR2VuAAwABwkA2QQBBQR0eElkBQxmaW5pc2hIZWlnaHQCAi1HBQVjb2xvcgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgxERUJVR19hbW91bnQJAGQCCQENdHJ5R2V0SW50ZWdlcgECDERFQlVHX2Ftb3VudAABCQDMCAIJAQtTdHJpbmdFbnRyeQICDURFQlVHX3BhcmVudDEFBW5hbWUxCQDMCAIJAQtTdHJpbmdFbnRyeQICDURFQlVHX3BhcmVudDIFBW5hbWUyCQDMCAIJAQtTdHJpbmdFbnRyeQICCkRFQlVHX25hbWUCBU1UTlQtCQDMCAIJAQtTdHJpbmdFbnRyeQICDERFQlVHX3Jlc3VsdAUDZ2VuBQNuaWwJAQ1uck9mVHlwZUdlbmVzAQUDZ2VuAK6xODc=",
    "height": 4098195,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 6cVSAPqgwwJBGSQ7oBXB8D9vMEZcvGdMjiy7qNVfBFfx
Next: AV7pjBP59F7aQpW9CHvXQJp9CgoZzomQi8t568dSfyMS

Diff: 
Old
New
Differences
123
123
 
124
124
 
                func $f1_2 ($a,$i) =                 if (($i >= $s))
125
125
 
                    then $a
126
-
                    else throw("List size exceeds 25")
126
+
                    else throw("List size exceeds 26")
127
127
 
128
-
                $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_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)
128
+
                $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_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)
129
129
 
                }
130
130
 
            let duckGens = {
131
131
 
                let $l = charList()
137
137
 
138
138
 
                func $f2_2 ($a,$i) =                 if (($i >= $s))
139
139
 
                    then $a
140
-
                    else throw("List size exceeds 25")
140
+
                    else throw("List size exceeds 26")
141
141
 
142
-
                $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_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)
142
+
                $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_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)
143
143
 
                }
144
144
 
[StringEntry("DEBUG_TURTLE", turtleGens), StringEntry("DEBUG_DUCK", duckGens)]
145
145
 
            }
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
func getRandomNumber (variants,txId,hatchingFinishHeight,offset) = {
5
5
 
    let randomSeedBlock = value(blockInfoByHeight((hatchingFinishHeight - 1)))
6
6
 
    let randomHash = sha256_16Kb((txId + value(randomSeedBlock.vrf)))
7
7
 
    (toInt(randomHash, offset) % variants)
8
8
 
    }
9
9
 
10
10
 
11
11
 
func getRandomGen (gen1,gen2,step,txId,hatchingFinishHeight) = {
12
12
 
    let randomNum = getRandomNumber(2, txId, hatchingFinishHeight, step)
13
13
 
    let gen = if ((randomNum == 0))
14
14
 
        then gen1
15
15
 
        else gen2
16
16
 
    gen
17
17
 
    }
18
18
 
19
19
 
20
20
 
func tryGetInteger (key) = {
21
21
 
    let val =     match getInteger(this, key) {
22
22
 
        case b: Int => 
23
23
 
            b
24
24
 
        case _ => 
25
25
 
            0
26
26
 
    }
27
27
 
    val
28
28
 
    }
29
29
 
30
30
 
31
31
 
func isSymbol (acc,sym) = if ((sym == acc._2))
32
32
 
    then $Tuple2((acc._1 + 1), acc._2)
33
33
 
    else $Tuple2((acc._1 + 0), acc._2)
34
34
 
35
35
 
36
36
 
func getAmountOrClear (amount) = if (contains(amount, "0"))
37
37
 
    then ""
38
38
 
    else amount
39
39
 
40
40
 
41
41
 
func charList () = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"]
42
42
 
43
43
 
44
44
 
func nrOfTypeGenes (gen) = {
45
45
 
    let genotype = split(dropRight(drop(gen, 5), 3), "")
46
46
 
    let parts1 = (genotype[0] + genotype[1])
47
47
 
    let parts2 = (genotype[2] + genotype[3])
48
48
 
    let parts3 = (genotype[4] + genotype[5])
49
49
 
    let parts4 = (genotype[6] + genotype[7])
50
50
 
    let parts5 = (genotype[8] + genotype[9])
51
51
 
    let parts6 = (genotype[10] + genotype[11])
52
52
 
    let parts7 = (genotype[12] + genotype[13])
53
53
 
    let parts8 = (genotype[14] + genotype[15])
54
54
 
    let parts = [parts1, parts2, parts3, parts4, parts5, parts6, parts7, parts8]
55
55
 
    func sortPartsByType (acc,part) =     {
56
56
 
        let splitParts = split(part, "")
57
57
 
        if ((splitParts[0] == "T"))
58
58
 
            then $Tuple2((acc._1 :+ splitParts[1]), acc._2)
59
59
 
            else if ((splitParts[0] == "D"))
60
60
 
                then $Tuple2(acc._1, (acc._2 :+ splitParts[1]))
61
61
 
                else throw("UNKNOWN TYPE")
62
62
 
        }
63
63
 
64
64
 
    let result = {
65
65
 
        let $l = parts
66
66
 
        let $s = size($l)
67
67
 
        let $acc0 = $Tuple2(nil, nil)
68
68
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
69
69
 
            then $a
70
70
 
            else sortPartsByType($a, $l[$i])
71
71
 
72
72
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
73
73
 
            then $a
74
74
 
            else throw("List size exceeds 8")
75
75
 
76
76
 
        $f0_2($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)
77
77
 
        }
78
78
 
    if ((result == result))
79
79
 
        then {
80
80
 
            func composeStringTurtle (acc,char) =             {
81
81
 
                let charCount = {
82
82
 
                    let $l = result._1
83
83
 
                    let $s = size($l)
84
84
 
                    let $acc0 = $Tuple2(0, char)
85
85
 
                    func $f1_1 ($a,$i) =                     if (($i >= $s))
86
86
 
                        then $a
87
87
 
                        else isSymbol($a, $l[$i])
88
88
 
89
89
 
                    func $f1_2 ($a,$i) =                     if (($i >= $s))
90
90
 
                        then $a
91
91
 
                        else throw("List size exceeds 8")
92
92
 
93
93
 
                    $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
94
94
 
                    }
95
95
 
                ((acc + toString(charCount._1)) + char)
96
96
 
                }
97
97
 
98
98
 
            func composeStringDuck (acc,char) =             {
99
99
 
                let charCount = {
100
100
 
                    let $l = result._2
101
101
 
                    let $s = size($l)
102
102
 
                    let $acc0 = $Tuple2(0, char)
103
103
 
                    func $f1_1 ($a,$i) =                     if (($i >= $s))
104
104
 
                        then $a
105
105
 
                        else isSymbol($a, $l[$i])
106
106
 
107
107
 
                    func $f1_2 ($a,$i) =                     if (($i >= $s))
108
108
 
                        then $a
109
109
 
                        else throw("List size exceeds 8")
110
110
 
111
111
 
                    $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
112
112
 
                    }
113
113
 
                ((acc + toString(charCount._1)) + char)
114
114
 
                }
115
115
 
116
116
 
            let turtleGens = {
117
117
 
                let $l = charList()
118
118
 
                let $s = size($l)
119
119
 
                let $acc0 = ""
120
120
 
                func $f1_1 ($a,$i) =                 if (($i >= $s))
121
121
 
                    then $a
122
122
 
                    else composeStringTurtle($a, $l[$i])
123
123
 
124
124
 
                func $f1_2 ($a,$i) =                 if (($i >= $s))
125
125
 
                    then $a
126
-
                    else throw("List size exceeds 25")
126
+
                    else throw("List size exceeds 26")
127
127
 
128
-
                $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_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)
128
+
                $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_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)
129
129
 
                }
130
130
 
            let duckGens = {
131
131
 
                let $l = charList()
132
132
 
                let $s = size($l)
133
133
 
                let $acc0 = ""
134
134
 
                func $f2_1 ($a,$i) =                 if (($i >= $s))
135
135
 
                    then $a
136
136
 
                    else composeStringDuck($a, $l[$i])
137
137
 
138
138
 
                func $f2_2 ($a,$i) =                 if (($i >= $s))
139
139
 
                    then $a
140
-
                    else throw("List size exceeds 25")
140
+
                    else throw("List size exceeds 26")
141
141
 
142
-
                $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_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)
142
+
                $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_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)
143
143
 
                }
144
144
 
[StringEntry("DEBUG_TURTLE", turtleGens), StringEntry("DEBUG_DUCK", duckGens)]
145
145
 
            }
146
146
 
        else throw("Strict value is not equal to itself.")
147
147
 
    }
148
148
 
149
149
 
150
150
 
@Callable(i)
151
151
 
func poc (assetIdStr) = {
152
152
 
    let asset = fromBase58String(assetIdStr)
153
153
 
    let parsedAssetInfo = value(assetInfo(asset))
154
154
 
    let body = parsedAssetInfo.description
155
155
 
[StringEntry(("DEBUG_" + assetIdStr), body)]
156
156
 
    }
157
157
 
158
158
 
159
159
 
160
160
 
@Callable(i)
161
161
 
func pocNameGen (name1,name2,txId,finishHeight) = {
162
162
 
    let colorRandom = getRandomNumber(4, fromBase58String(txId), finishHeight, 11)
163
163
 
    let color = if ((colorRandom == 0))
164
164
 
        then "R"
165
165
 
        else if ((colorRandom == 1))
166
166
 
            then "D"
167
167
 
            else if ((colorRandom == 2))
168
168
 
                then "S"
169
169
 
                else "G"
170
170
 
    let parent1Gen = split(name1, "")
171
171
 
    let parent2Gen = split(name2, "")
172
172
 
    let gen = (((((((((("MTNT-" + getRandomGen((parent1Gen[0] + parent1Gen[5]), (parent2Gen[0] + parent2Gen[5]), 0, fromBase58String(txId), finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[6]), (parent2Gen[0] + parent2Gen[6]), 1, fromBase58String(txId), finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[7]), (parent2Gen[0] + parent2Gen[7]), 2, fromBase58String(txId), finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[8]), (parent2Gen[0] + parent2Gen[8]), 3, fromBase58String(txId), finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[9]), (parent2Gen[0] + parent2Gen[9]), 4, fromBase58String(txId), finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[10]), (parent2Gen[0] + parent2Gen[10]), 5, fromBase58String(txId), finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[11]), (parent2Gen[0] + parent2Gen[11]), 6, fromBase58String(txId), finishHeight)) + getRandomGen((parent1Gen[0] + parent1Gen[12]), (parent2Gen[0] + parent2Gen[12]), 7, fromBase58String(txId), finishHeight)) + "-G") + color)
173
173
 
    ([IntegerEntry("DEBUG_amount", (tryGetInteger("DEBUG_amount") + 1)), StringEntry("DEBUG_parent1", name1), StringEntry("DEBUG_parent2", name2), StringEntry("DEBUG_name", "MTNT-"), StringEntry("DEBUG_result", gen)] ++ nrOfTypeGenes(gen))
174
174
 
    }
175
175
 
176
176
 

github/deemru/w8io/6500d08 
42.80 ms ◑