tx · AV7pjBP59F7aQpW9CHvXQJp9CgoZzomQi8t568dSfyMS 3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o: -0.01000000 Waves 2024.03.24 17:55 [4098197] smart account 3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o > SELF 0.00000000 Waves
{ "type": 13, "id": "AV7pjBP59F7aQpW9CHvXQJp9CgoZzomQi8t568dSfyMS", "fee": 1000000, "feeAssetId": null, "timestamp": 1711292153466, "version": 2, "chainId": 87, "sender": "3PKygHiLgLC16j5bNP1T3UUudmH98Pp2v8o", "senderPublicKey": "EKWFwVJMAk6xj9i7a2PGBZx557V7M57jEhyaZHH3mAc1", "proofs": [ "3KbrUv1cuKt9qPjN55mx8jSYVqGnHZYnFeZ4wmqUVJXbHk3V2Wh4raHquHVHWuEuzgkFZZyQi79jTfHkyjGULVTe" ], "script": "base64:BgIPCAISAwoBCBIGCgQICAgBBwEPZ2V0UmFuZG9tTnVtYmVyBAh2YXJpYW50cwR0eElkFGhhdGNoaW5nRmluaXNoSGVpZ2h0Bm9mZnNldAQPcmFuZG9tU2VlZEJsb2NrCQEFdmFsdWUBCQDtBwEJAGUCBRRoYXRjaGluZ0ZpbmlzaEhlaWdodAABBApyYW5kb21IYXNoCQDUFgEJAMsBAgUEdHhJZAkBBXZhbHVlAQgFD3JhbmRvbVNlZWRCbG9jawN2cmYJAGoCCQCyCQIFCnJhbmRvbUhhc2gFBm9mZnNldAUIdmFyaWFudHMBDGdldFJhbmRvbUdlbgUEZ2VuMQRnZW4yBHN0ZXAEdHhJZBRoYXRjaGluZ0ZpbmlzaEhlaWdodAQJcmFuZG9tTnVtCQEPZ2V0UmFuZG9tTnVtYmVyBAACBQR0eElkBRRoYXRjaGluZ0ZpbmlzaEhlaWdodAUEc3RlcAQDZ2VuAwkAAAIFCXJhbmRvbU51bQAABQRnZW4xBQRnZW4yBQNnZW4BDXRyeUdldEludGVnZXIBA2tleQQDdmFsBAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAUDdmFsAQhpc1N5bWJvbAIDYWNjA3N5bQMJAAACBQNzeW0IBQNhY2MCXzIJAJQKAgkAZAIIBQNhY2MCXzEAAQgFA2FjYwJfMgkAlAoCCQBkAggFA2FjYwJfMQAACAUDYWNjAl8yARBnZXRBbW91bnRPckNsZWFyAQZhbW91bnQDCQEIY29udGFpbnMCBQZhbW91bnQCATACAAUGYW1vdW50AQhjaGFyTGlzdAAJAMwIAgIBQQkAzAgCAgFCCQDMCAICAUMJAMwIAgIBRAkAzAgCAgFFCQDMCAICAUYJAMwIAgIBRwkAzAgCAgFICQDMCAICAUkJAMwIAgIBSgkAzAgCAgFLCQDMCAICAUwJAMwIAgIBTQkAzAgCAgFOCQDMCAICAU8JAMwIAgIBUAkAzAgCAgFRCQDMCAICAVIJAMwIAgIBUwkAzAgCAgFUCQDMCAICAVUJAMwIAgIBVgkAzAgCAgFXCQDMCAICAVgJAMwIAgIBWQkAzAgCAgFaBQNuaWwBDW5yT2ZUeXBlR2VuZXMBA2dlbgQIZ2Vub3R5cGUJALUJAgkAswICCQCwAgIFA2dlbgAFAAMCAAQGcGFydHMxCQCsAgIJAJEDAgUIZ2Vub3R5cGUAAAkAkQMCBQhnZW5vdHlwZQABBAZwYXJ0czIJAKwCAgkAkQMCBQhnZW5vdHlwZQACCQCRAwIFCGdlbm90eXBlAAMEBnBhcnRzMwkArAICCQCRAwIFCGdlbm90eXBlAAQJAJEDAgUIZ2Vub3R5cGUABQQGcGFydHM0CQCsAgIJAJEDAgUIZ2Vub3R5cGUABgkAkQMCBQhnZW5vdHlwZQAHBAZwYXJ0czUJAKwCAgkAkQMCBQhnZW5vdHlwZQAICQCRAwIFCGdlbm90eXBlAAkEBnBhcnRzNgkArAICCQCRAwIFCGdlbm90eXBlAAoJAJEDAgUIZ2Vub3R5cGUACwQGcGFydHM3CQCsAgIJAJEDAgUIZ2Vub3R5cGUADAkAkQMCBQhnZW5vdHlwZQANBAZwYXJ0czgJAKwCAgkAkQMCBQhnZW5vdHlwZQAOCQCRAwIFCGdlbm90eXBlAA8EBXBhcnRzCQDMCAIFBnBhcnRzMQkAzAgCBQZwYXJ0czIJAMwIAgUGcGFydHMzCQDMCAIFBnBhcnRzNAkAzAgCBQZwYXJ0czUJAMwIAgUGcGFydHM2CQDMCAIFBnBhcnRzNwkAzAgCBQZwYXJ0czgFA25pbAoBD3NvcnRQYXJ0c0J5VHlwZQIDYWNjBHBhcnQECnNwbGl0UGFydHMJALUJAgUEcGFydAIAAwkAAAIJAJEDAgUKc3BsaXRQYXJ0cwAAAgFUCQCUCgIJAM0IAggFA2FjYwJfMQkAkQMCBQpzcGxpdFBhcnRzAAEIBQNhY2MCXzIDCQAAAgkAkQMCBQpzcGxpdFBhcnRzAAACAUQJAJQKAggFA2FjYwJfMQkAzQgCCAUDYWNjAl8yCQCRAwIFCnNwbGl0UGFydHMAAQkAAgECDFVOS05PV04gVFlQRQQGcmVzdWx0CgACJGwFBXBhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlAoCBQNuaWwFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPc29ydFBhcnRzQnlUeXBlAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA4CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAMJAAACBQZyZXN1bHQFBnJlc3VsdAoBE2NvbXBvc2VTdHJpbmdUdXJ0bGUCA2FjYwRjaGFyBAljaGFyQ291bnQKAAIkbAgFBnJlc3VsdAJfMQoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgAABQRjaGFyCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhpc1N5bWJvbAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgOAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgJAKwCAgUDYWNjCQEQZ2V0QW1vdW50T3JDbGVhcgEJAKwCAgkApAMBCAUJY2hhckNvdW50Al8xBQRjaGFyCgERY29tcG9zZVN0cmluZ0R1Y2sCA2FjYwRjaGFyBAljaGFyQ291bnQKAAIkbAgFBnJlc3VsdAJfMgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgAABQRjaGFyCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhpc1N5bWJvbAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgOAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgJAKwCAgUDYWNjCQEQZ2V0QW1vdW50T3JDbGVhcgEJAKwCAgkApAMBCAUJY2hhckNvdW50Al8xBQRjaGFyBAp0dXJ0bGVHZW5zCgACJGwJAQhjaGFyTGlzdAAKAAIkcwkAkAMBBQIkbAoABSRhY2MwAgAKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBE2NvbXBvc2VTdHJpbmdUdXJ0bGUCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDI2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgQIZHVja0dlbnMKAAIkbAkBCGNoYXJMaXN0AAoAAiRzCQCQAwEFAiRsCgAFJGFjYzACAAoBBSRmMl8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQERY29tcG9zZVN0cmluZ0R1Y2sCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDI2CQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgkAzAgCCQELU3RyaW5nRW50cnkCAgxERUJVR19UVVJUTEUFCnR1cnRsZUdlbnMJAMwIAgkBC1N0cmluZ0VudHJ5AgIKREVCVUdfRFVDSwUIZHVja0dlbnMFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgIBaQEDcG9jAQphc3NldElkU3RyBAVhc3NldAkA2QQBBQphc3NldElkU3RyBA9wYXJzZWRBc3NldEluZm8JAQV2YWx1ZQEJAOwHAQUFYXNzZXQEBGJvZHkIBQ9wYXJzZWRBc3NldEluZm8LZGVzY3JpcHRpb24JAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICAgZERUJVR18FCmFzc2V0SWRTdHIFBGJvZHkFA25pbAFpAQpwb2NOYW1lR2VuBAVuYW1lMQVuYW1lMgR0eElkDGZpbmlzaEhlaWdodAQLY29sb3JSYW5kb20JAQ9nZXRSYW5kb21OdW1iZXIEAAQJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0AAsEBWNvbG9yAwkAAAIFC2NvbG9yUmFuZG9tAAACAVIDCQAAAgULY29sb3JSYW5kb20AAQIBRAMJAAACBQtjb2xvclJhbmRvbQACAgFTAgFHBApwYXJlbnQxR2VuCQC1CQIFBW5hbWUxAgAECnBhcmVudDJHZW4JALUJAgUFbmFtZTICAAQDZ2VuCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICBU1UTlQtCQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAUJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAFAAAJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAYJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAGAAEJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAcJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAHAAIJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAgJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAIAAMJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAkJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAJAAQJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAoJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAKAAUJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAsJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgALAAYJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0CQEMZ2V0UmFuZG9tR2VuBQkArAICCQCRAwIFCnBhcmVudDFHZW4AAAkAkQMCBQpwYXJlbnQxR2VuAAwJAKwCAgkAkQMCBQpwYXJlbnQyR2VuAAAJAJEDAgUKcGFyZW50MkdlbgAMAAcJANkEAQUEdHhJZAUMZmluaXNoSGVpZ2h0AgItRwUFY29sb3IJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgIMREVCVUdfYW1vdW50CQBkAgkBDXRyeUdldEludGVnZXIBAgxERUJVR19hbW91bnQAAQkAzAgCCQELU3RyaW5nRW50cnkCAg1ERUJVR19wYXJlbnQxBQVuYW1lMQkAzAgCCQELU3RyaW5nRW50cnkCAg1ERUJVR19wYXJlbnQyBQVuYW1lMgkAzAgCCQELU3RyaW5nRW50cnkCAgpERUJVR19uYW1lAgVNVE5ULQkAzAgCCQELU3RyaW5nRW50cnkCAgxERUJVR19yZXN1bHQFA2dlbgUDbmlsCQENbnJPZlR5cGVHZW5lcwEFA2dlbgDeKJ4d", "height": 4098197, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: Bk9qDTn6B9tBS6SiCqFq3ZhTv6vU325RMRn6qMdo489y Next: GfuH9dz2dghs4hLpSZCpe8i2NT4pFpeXw9vm3SBRpBfJ Diff:
Old | New | Differences | |
---|---|---|---|
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 + getAmountOrClear((toString(charCount._1) + char))) | |
96 | 96 | } | |
97 | 97 | ||
98 | 98 | func composeStringDuck (acc,char) = { | |
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 + getAmountOrClear((toString(charCount._1) + char))) | |
114 | 114 | } | |
115 | 115 | ||
116 | 116 | let turtleGens = { |
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 + getAmountOrClear((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 + getAmountOrClear((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 | 126 | else throw("List size exceeds 26") | |
127 | 127 | ||
128 | 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 | 140 | else throw("List size exceeds 26") | |
141 | 141 | ||
142 | 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 104.18 ms ◑