w8 · tx · GMp···zFE

tx · GMpUpczuYr52ok8PwFgzrrpnkxaNMrJh4NLjg9qxUzFE

3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o:  -0.01000000 Waves

2024.03.24 17:39 [4098178] smart account 3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GMpUpczuYr52ok8PwFgzrrpnkxaNMrJh4NLjg9qxUzFE",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1711291255778,
    "version": 2,
    "chainId": 87,
    "sender": "3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o",
    "senderPublicKey": "EKWFwVJMAk6xj9i7a2PGBZx557V7M57jEhyaZHH3mAc1",
    "proofs": [
        "3w3MgZt2FZZgwFqbKgXqBJkewseB497kfYjGiJ6EkujfvNuCpLkQ84DWg7Ah38oedEd6VFQfQH3JW1qqpR7KRBzF"
    ],
    "script": "base64:BgIPCAISAwoBCBIGCgQICAgBBwEPZ2V0UmFuZG9tTnVtYmVyBAh2YXJpYW50cwR0eElkFGhhdGNoaW5nRmluaXNoSGVpZ2h0Bm9mZnNldAQPcmFuZG9tU2VlZEJsb2NrCQEFdmFsdWUBCQDtBwEJAGUCBRRoYXRjaGluZ0ZpbmlzaEhlaWdodAABBApyYW5kb21IYXNoCQDUFgEJAMsBAgUEdHhJZAkBBXZhbHVlAQgFD3JhbmRvbVNlZWRCbG9jawN2cmYJAGoCCQCyCQIFCnJhbmRvbUhhc2gFBm9mZnNldAUIdmFyaWFudHMBDGdldFJhbmRvbUdlbgUEZ2VuMQRnZW4yBHN0ZXAEdHhJZBRoYXRjaGluZ0ZpbmlzaEhlaWdodAQJcmFuZG9tTnVtCQEPZ2V0UmFuZG9tTnVtYmVyBAACBQR0eElkBRRoYXRjaGluZ0ZpbmlzaEhlaWdodAUEc3RlcAQDZ2VuAwkAAAIFCXJhbmRvbU51bQAABQRnZW4xBQRnZW4yBQNnZW4BDXRyeUdldEludGVnZXIBA2tleQQDdmFsBAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAUDdmFsAQhpc1N5bWJvbAILYWNjdW11bGF0ZWQDc3ltAwkAAAIFA3N5bQgFC2FjY3VtdWxhdGVkAl8yCQBkAggFC2FjY3VtdWxhdGVkAl8xAAEJAGQCCAULYWNjdW11bGF0ZWQCXzEAAAEQZ2V0QW1vdW50T3JDbGVhcgEGYW1vdW50AwkBCGNvbnRhaW5zAgUGYW1vdW50AgEwAgAFBmFtb3VudAEIY2hhckxpc3QACQDMCAICAUEJAMwIAgIBQgkAzAgCAgFDCQDMCAICAUQJAMwIAgIBRQkAzAgCAgFGCQDMCAICAUcJAMwIAgIBSAkAzAgCAgFJCQDMCAICAUoJAMwIAgIBSwkAzAgCAgFMCQDMCAICAU0JAMwIAgIBTgkAzAgCAgFPCQDMCAICAVAJAMwIAgIBUQkAzAgCAgFSCQDMCAICAVMJAMwIAgIBVAkAzAgCAgFVCQDMCAICAVYJAMwIAgIBVwkAzAgCAgFYCQDMCAICAVkJAMwIAgIBWgUDbmlsAQ1uck9mVHlwZUdlbmVzAQNnZW4ECGdlbm90eXBlCQC1CQIJALMCAgkAsAICBQNnZW4ABQADAgAEBnBhcnRzMQkArAICCQCRAwIFCGdlbm90eXBlAAAJAJEDAgUIZ2Vub3R5cGUAAQQGcGFydHMyCQCsAgIJAJEDAgUIZ2Vub3R5cGUAAgkAkQMCBQhnZW5vdHlwZQADBAZwYXJ0czMJAKwCAgkAkQMCBQhnZW5vdHlwZQAECQCRAwIFCGdlbm90eXBlAAUEBnBhcnRzNAkArAICCQCRAwIFCGdlbm90eXBlAAYJAJEDAgUIZ2Vub3R5cGUABwQGcGFydHM1CQCsAgIJAJEDAgUIZ2Vub3R5cGUACAkAkQMCBQhnZW5vdHlwZQAJBAZwYXJ0czYJAKwCAgkAkQMCBQhnZW5vdHlwZQAKCQCRAwIFCGdlbm90eXBlAAsEBnBhcnRzNwkArAICCQCRAwIFCGdlbm90eXBlAAwJAJEDAgUIZ2Vub3R5cGUADQQGcGFydHM4CQCsAgIJAJEDAgUIZ2Vub3R5cGUADgkAkQMCBQhnZW5vdHlwZQAPBAVwYXJ0cwkAzAgCBQZwYXJ0czEJAMwIAgUGcGFydHMyCQDMCAIFBnBhcnRzMwkAzAgCBQZwYXJ0czQJAMwIAgUGcGFydHM1CQDMCAIFBnBhcnRzNgkAzAgCBQZwYXJ0czcJAMwIAgUGcGFydHM4BQNuaWwKAQ9zb3J0UGFydHNCeVR5cGUCA2FjYwRwYXJ0BApzcGxpdFBhcnRzCQC1CQIFBHBhcnQCAAMJAAACCQCRAwIFCnNwbGl0UGFydHMAAAIBVAkAzQgCCAUDYWNjAl8xCQCRAwIFCnNwbGl0UGFydHMAAQMJAAACCQCRAwIFCnNwbGl0UGFydHMAAAIBRAkAzQgCCAUDYWNjAl8yCQCRAwIFCnNwbGl0UGFydHMAAQkAAgECDFVOS05PV04gVFlQRQQGcmVzdWx0CgACJGwFBXBhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPc29ydFBhcnRzQnlUeXBlAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA4CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAoBE2NvbXBvc2VTdHJpbmdUdXJ0bGUCA2FjYwRjaGFyBAljaGFyQ291bnQKAAIkbAgFBnJlc3VsdAJfMQoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgAABQRjaGFyCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhpc1N5bWJvbAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgOAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgJAKwCAgkArAICBQNhY2MJAKQDAQgFCWNoYXJDb3VudAJfMQUEY2hhcgoBEWNvbXBvc2VTdHJpbmdEdWNrAgNhY2MEY2hhcgQJY2hhckNvdW50CgACJGwIBQZyZXN1bHQCXzIKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCUCgIAAAUEY2hhcgoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIaXNTeW1ib2wCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDgJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAICQCsAgIJAKwCAgUDYWNjCQCkAwEIBQljaGFyQ291bnQCXzEFBGNoYXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIMREVCVUdfVFVSVExFCQCRAwIIBQZyZXN1bHQCXzEAAAkAzAgCCQELU3RyaW5nRW50cnkCAgxERUJVR19UVVJUTEUJAJEDAggFBnJlc3VsdAJfMgAABQNuaWwCAWkBA3BvYwEKYXNzZXRJZFN0cgQFYXNzZXQJANkEAQUKYXNzZXRJZFN0cgQPcGFyc2VkQXNzZXRJbmZvCQEFdmFsdWUBCQDsBwEFBWFzc2V0BARib2R5CAUPcGFyc2VkQXNzZXRJbmZvC2Rlc2NyaXB0aW9uCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgIGREVCVUdfBQphc3NldElkU3RyBQRib2R5BQNuaWwBaQEKcG9jTmFtZUdlbgQFbmFtZTEFbmFtZTIEdHhJZAxmaW5pc2hIZWlnaHQEC2NvbG9yUmFuZG9tCQEPZ2V0UmFuZG9tTnVtYmVyBAAECQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAALBAVjb2xvcgMJAAACBQtjb2xvclJhbmRvbQAAAgFSAwkAAAIFC2NvbG9yUmFuZG9tAAECAUQDCQAAAgULY29sb3JSYW5kb20AAgIBUwIBRwQKcGFyZW50MUdlbgkAtQkCBQVuYW1lMQIABApwYXJlbnQyR2VuCQC1CQIFBW5hbWUyAgAEA2dlbgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAgVNVE5ULQkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAFCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ABQAACQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAGCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ABgABCQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAHCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ABwACCQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAICQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ACAADCQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAJCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ACQAECQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAKCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ACgAFCQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgALCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ACwAGCQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAkBDGdldFJhbmRvbUdlbgUJAKwCAgkAkQMCBQpwYXJlbnQxR2VuAAAJAJEDAgUKcGFyZW50MUdlbgAMCQCsAgIJAJEDAgUKcGFyZW50MkdlbgAACQCRAwIFCnBhcmVudDJHZW4ADAAHCQDZBAEFBHR4SWQFDGZpbmlzaEhlaWdodAICLUcFBWNvbG9yCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQICDERFQlVHX2Ftb3VudAkAZAIJAQ10cnlHZXRJbnRlZ2VyAQIMREVCVUdfYW1vdW50AAEJAMwIAgkBC1N0cmluZ0VudHJ5AgINREVCVUdfcGFyZW50MQUFbmFtZTEJAMwIAgkBC1N0cmluZ0VudHJ5AgINREVCVUdfcGFyZW50MgUFbmFtZTIJAMwIAgkBC1N0cmluZ0VudHJ5AgIKREVCVUdfbmFtZQIFTVROVC0JAMwIAgkBC1N0cmluZ0VudHJ5AgIMREVCVUdfcmVzdWx0BQNnZW4FA25pbAkBDW5yT2ZUeXBlR2VuZXMBBQNnZW4AGYLViw==",
    "height": 4098178,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9n8J2hEvXGJ1pTEphBw9zVZy6U3D2kum7wivjBZ2qskx
Next: EV5jWVqUz6Gkdt1ru91Bqtc1gU3p6xrpGhJUu3wYWXu8

Diff: 
Old New Differences
111 111          ((acc + toString(charCount._1)) + char)
112 112          }
113 113  
114 -     nil
114 + [StringEntry("DEBUG_TURTLE", result._1[0]), StringEntry("DEBUG_TURTLE", result._2[0])]
115 115      }
116 116  
117 117  
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 (accumulated,sym) = if ((sym == accumulated._2))
32 32      then (accumulated._1 + 1)
33 33      else (accumulated._1 + 0)
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 (acc._1 :+ splitParts[1])
59 59              else if ((splitParts[0] == "D"))
60 60                  then (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      func composeStringTurtle (acc,char) =     {
79 79          let charCount = {
80 80              let $l = result._1
81 81              let $s = size($l)
82 82              let $acc0 = $Tuple2(0, char)
83 83              func $f1_1 ($a,$i) =             if (($i >= $s))
84 84                  then $a
85 85                  else isSymbol($a, $l[$i])
86 86  
87 87              func $f1_2 ($a,$i) =             if (($i >= $s))
88 88                  then $a
89 89                  else throw("List size exceeds 8")
90 90  
91 91              $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)
92 92              }
93 93          ((acc + toString(charCount._1)) + char)
94 94          }
95 95  
96 96      func composeStringDuck (acc,char) =     {
97 97          let charCount = {
98 98              let $l = result._2
99 99              let $s = size($l)
100 100              let $acc0 = $Tuple2(0, char)
101 101              func $f1_1 ($a,$i) =             if (($i >= $s))
102 102                  then $a
103 103                  else isSymbol($a, $l[$i])
104 104  
105 105              func $f1_2 ($a,$i) =             if (($i >= $s))
106 106                  then $a
107 107                  else throw("List size exceeds 8")
108 108  
109 109              $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)
110 110              }
111 111          ((acc + toString(charCount._1)) + char)
112 112          }
113 113  
114 -     nil
114 + [StringEntry("DEBUG_TURTLE", result._1[0]), StringEntry("DEBUG_TURTLE", result._2[0])]
115 115      }
116 116  
117 117  
118 118  @Callable(i)
119 119  func poc (assetIdStr) = {
120 120      let asset = fromBase58String(assetIdStr)
121 121      let parsedAssetInfo = value(assetInfo(asset))
122 122      let body = parsedAssetInfo.description
123 123  [StringEntry(("DEBUG_" + assetIdStr), body)]
124 124      }
125 125  
126 126  
127 127  
128 128  @Callable(i)
129 129  func pocNameGen (name1,name2,txId,finishHeight) = {
130 130      let colorRandom = getRandomNumber(4, fromBase58String(txId), finishHeight, 11)
131 131      let color = if ((colorRandom == 0))
132 132          then "R"
133 133          else if ((colorRandom == 1))
134 134              then "D"
135 135              else if ((colorRandom == 2))
136 136                  then "S"
137 137                  else "G"
138 138      let parent1Gen = split(name1, "")
139 139      let parent2Gen = split(name2, "")
140 140      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)
141 141      ([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))
142 142      }
143 143  
144 144

Old	New		Differences
111	111		((acc + toString(charCount._1)) + char)
112	112		}
113	113
114		-	~~nil~~
	114	+	[StringEntry("DEBUG_TURTLE", result._1[0]), StringEntry("DEBUG_TURTLE", result._2[0])]
115	115		}
116	116
117	117

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 (accumulated,sym) = if ((sym == accumulated._2))
32	32		then (accumulated._1 + 1)
33	33		else (accumulated._1 + 0)
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 (acc._1 :+ splitParts[1])
59	59		else if ((splitParts[0] == "D"))
60	60		then (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		func composeStringTurtle (acc,char) = {
79	79		let charCount = {
80	80		let $l = result._1
81	81		let $s = size($l)
82	82		let $acc0 = $Tuple2(0, char)
83	83		func $f1_1 ($a,$i) = if (($i >= $s))
84	84		then $a
85	85		else isSymbol($a, $l[$i])
86	86
87	87		func $f1_2 ($a,$i) = if (($i >= $s))
88	88		then $a
89	89		else throw("List size exceeds 8")
90	90
91	91		$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)
92	92		}
93	93		((acc + toString(charCount._1)) + char)
94	94		}
95	95
96	96		func composeStringDuck (acc,char) = {
97	97		let charCount = {
98	98		let $l = result._2
99	99		let $s = size($l)
100	100		let $acc0 = $Tuple2(0, char)
101	101		func $f1_1 ($a,$i) = if (($i >= $s))
102	102		then $a
103	103		else isSymbol($a, $l[$i])
104	104
105	105		func $f1_2 ($a,$i) = if (($i >= $s))
106	106		then $a
107	107		else throw("List size exceeds 8")
108	108
109	109		$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)
110	110		}
111	111		((acc + toString(charCount._1)) + char)
112	112		}
113	113
114		-	~~nil~~
	114	+	[StringEntry("DEBUG_TURTLE", result._1[0]), StringEntry("DEBUG_TURTLE", result._2[0])]
115	115		}
116	116
117	117
118	118		@Callable(i)
119	119		func poc (assetIdStr) = {
120	120		let asset = fromBase58String(assetIdStr)
121	121		let parsedAssetInfo = value(assetInfo(asset))
122	122		let body = parsedAssetInfo.description
123	123		[StringEntry(("DEBUG_" + assetIdStr), body)]
124	124		}
125	125
126	126
127	127
128	128		@Callable(i)
129	129		func pocNameGen (name1,name2,txId,finishHeight) = {
130	130		let colorRandom = getRandomNumber(4, fromBase58String(txId), finishHeight, 11)
131	131		let color = if ((colorRandom == 0))
132	132		then "R"
133	133		else if ((colorRandom == 1))
134	134		then "D"
135	135		else if ((colorRandom == 2))
136	136		then "S"
137	137		else "G"
138	138		let parent1Gen = split(name1, "")
139	139		let parent2Gen = split(name2, "")
140	140		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)
141	141		([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))
142	142		}
143	143
144	144

github/deemru/w8io/6500d08 
31.92 ms ◑