w8 · tx · F78···Rvm

tx · F78fV2znNc3CqRVMumkUZaivBwYTCTktsG1hW3ZS4Rvm

3PPhk52YuwKTFT2U865di1Pepj4bFHxubFY:  -0.03800000 Waves

2022.11.09 20:11 [3375253] smart account 3PPhk52YuwKTFT2U865di1Pepj4bFHxubFY > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "F78fV2znNc3CqRVMumkUZaivBwYTCTktsG1hW3ZS4Rvm",
    "fee": 3800000,
    "feeAssetId": null,
    "timestamp": 1668013917863,
    "version": 2,
    "chainId": 87,
    "sender": "3PPhk52YuwKTFT2U865di1Pepj4bFHxubFY",
    "senderPublicKey": "5EhD7NvoyShNGdN6g6ps2X6FieUun2o7TTggY1CL9wH9",
    "proofs": [
        "564tyWPDZ1u4VGo4aoaaGtEtHVPqfLw3Dyb3VsuENxBRXGdGwFS4EJcCwhJFyVcfUsDFvAbxmnkif3PGpvRRj23U"
    ],
    "script": "base64:BgIeCAISAwoBCBIDCgEIEgMKAQgSBQoDCAEYEgQKAggBBQAKaW5kaWNlc18yMAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgkAzAgCAA8JAMwIAgAQCQDMCAIAEQkAzAgCABIJAMwIAgATBQNuaWwBD2NoZWNrX3doaXRlbGlzdAEGY2FsbGVyAwkAAAIFBHRoaXMFBmNhbGxlcgYEByRtYXRjaDAJAKAIAQkArAICAgJXXwkA2AQBCAUGY2FsbGVyBWJ5dGVzAwkAAQIFByRtYXRjaDACB0Jvb2xlYW4EAXgFByRtYXRjaDAFAXgHAQ9mb2xkX3B1dF9hc3NldHMCBWFjY3VtBWluZGV4BAkkdDA0NTU0OTcFBWFjY3VtBARsaXN0CAUJJHQwNDU1NDk3Al8xBAdhaXJkcm9wCAUJJHQwNDU1NDk3Al8yBANlbmQIBQkkdDA0NTU0OTcCXzMECHBheW1lbnRzCAUJJHQwNDU1NDk3Al80AwkAZwIFBWluZGV4CQCQAwEFCHBheW1lbnRzBQVhY2N1bQMJAQIhPQIICQCRAwIFCHBheW1lbnRzBQVpbmRleAZhbW91bnQAAQkAAgEJAKwCAgkArAICAg5Xcm9uZyBwYXltZW50IAkApAMBCQBkAgUFaW5kZXgAAQIHIGFtb3VudAQCaWQJANgEAQkBBXZhbHVlAQgJAJEDAgUIcGF5bWVudHMFBWluZGV4B2Fzc2V0SWQJAJYKBAkAzggCBQRsaXN0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICBQdhaXJkcm9wAgNfWF8JANgEAQkAmgMBCQBkAgUDZW5kBQVpbmRleAUCaWQFA25pbAUHYWlyZHJvcAUDZW5kBQhwYXltZW50cwEKZm9sZF9hbGxvdwIFYWNjdW0FaW5kZXgECiR0MDk3MjEwMTcFBWFjY3VtBARsaXN0CAUKJHQwOTcyMTAxNwJfMQQHYWlyZHJvcAgFCiR0MDk3MjEwMTcCXzIEBmFtb3VudAgFCiR0MDk3MjEwMTcCXzMECGFjY291bnRzCAUKJHQwOTcyMTAxNwJfNAMJAGcCBQVpbmRleAkAkAMBBQhhY2NvdW50cwUFYWNjdW0EA2tleQkArAICCQCsAgIFB2FpcmRyb3ACA19BXwkAkQMCBQhhY2NvdW50cwUFaW5kZXgEB2FsbG93ZWQEByRtYXRjaDAJAJ8IAQUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBagUHJG1hdGNoMAUBagAACQCWCgQJAM0IAgUEbGlzdAkBDEludGVnZXJFbnRyeQIFA2tleQkAZAIFB2FsbG93ZWQFBmFtb3VudAUHYWlyZHJvcAUGYW1vdW50BQhhY2NvdW50cwEKZm9sZF9jbGFpbQIFYWNjdW0FaW5kZXgECyR0MDE0MTMxNDU3BQVhY2N1bQQEbGlzdAgFCyR0MDE0MTMxNDU3Al8xBAZhbW91bnQIBQskdDAxNDEzMTQ1NwJfMgQHYWlyZHJvcAgFCyR0MDE0MTMxNDU3Al8zBAdjbGFpbWVyCAULJHQwMTQxMzE0NTcCXzQDCQBnAgAABQZhbW91bnQFBWFjY3VtBAlhc3NldF9rZXkJAKwCAgkArAICBQdhaXJkcm9wAgNfWF8JANgEAQkAmgMBBQVpbmRleAQIYXNzZXRfaWQJANkEAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUJYXNzZXRfa2V5CQCWCgQJAM4IAgUEbGlzdAkAzAgCCQELRGVsZXRlRW50cnkBBQlhc3NldF9rZXkJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUHY2xhaW1lcgABBQhhc3NldF9pZAUDbmlsCQBlAgUGYW1vdW50AAEFB2FpcmRyb3AFB2NsYWltZXIFAWkBDXdoaXRlbGlzdF9hZGQBBHVzZXIDCQECIT0CBQR0aGlzCAUBaQZjYWxsZXIJAAIBAhhDYWxsZXIgaXMgbm90IGRBcHAgb3duZXIJAJQKAgkAzAgCCQEMQm9vbGVhbkVudHJ5AgkArAICAgJXXwUEdXNlcgYFA25pbAUEdW5pdAFpARB3aGl0ZWxpc3RfcmVtb3ZlAQR1c2VyAwkBAiE9AgUEdGhpcwgFAWkGY2FsbGVyCQACAQIYQ2FsbGVyIGlzIG5vdCBkQXBwIG93bmVyCQCUCgIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICAgJXXwUEdXNlcgUDbmlsBQR1bml0AWkBCnB1dF9hc3NldHMBB2FpcmRyb3ADCQEBIQEJAQ9jaGVja193aGl0ZWxpc3QBCAUBaQZjYWxsZXIJAAIBAhdDYWxsZXIgbm90IGluIHdoaXRlbGlzdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAgpObyBwYXltZW50AwkAZgIJAJADAQgFAWkIcGF5bWVudHMAFAkAAgECDlRvIG1hbnkgYXNzZXRzBAVrX2VuZAkArAICBQdhaXJkcm9wAgRfZW5kBANlbmQEByRtYXRjaDAJAJ8IAQUFa19lbmQDCQABAgUHJG1hdGNoMAIDSW50BAFqBQckbWF0Y2gwBQFqAAAECyR0MDI1NDkyNjU4CgACJGwFCmluZGljZXNfMjAKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAUHYWlyZHJvcAUDZW5kCAUBaQhwYXltZW50cwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPZm9sZF9wdXRfYXNzZXRzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQEBGxpc3QIBQskdDAyNTQ5MjY1OAJfMQQIYWlyZHJvcF8IBQskdDAyNTQ5MjY1OAJfMgQEZW5kXwgFCyR0MDI1NDkyNjU4Al8zBAlwYXltZW50c18IBQskdDAyNTQ5MjY1OAJfNAkAlAoCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFBWtfZW5kCQBkAgUDZW5kCQCQAwEIBQFpCHBheW1lbnRzBQNuaWwFBGxpc3QFBHVuaXQBaQEFYWxsb3cDB2FpcmRyb3AGYW1vdW50CGFjY291bnRzAwkBASEBCQEPY2hlY2tfd2hpdGVsaXN0AQgFAWkGY2FsbGVyCQACAQIXQ2FsbGVyIG5vdCBpbiB3aGl0ZWxpc3QDCQAAAgUGYW1vdW50AAAJAAIBAgxXcm9uZyBhbW91bnQDCQAAAgkAkAMBBQhhY2NvdW50cwAACQACAQILTm8gYWNjb3VudHMDCQBmAgkAkAMBBQhhY2NvdW50cwAUCQACAQIRVG9vIG1hbnkgYWNjb3VudHMECyR0MDMwOTgzMjA2CgACJGwFCmluZGljZXNfMjAKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAUHYWlyZHJvcAUGYW1vdW50BQhhY2NvdW50cwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKZm9sZF9hbGxvdwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUBARsaXN0CAULJHQwMzA5ODMyMDYCXzEECGFpcmRyb3BfCAULJHQwMzA5ODMyMDYCXzIEB2Ftb3VudF8IBQskdDAzMDk4MzIwNgJfMwQJYWNjb3VudHNfCAULJHQwMzA5ODMyMDYCXzQJAJQKAgUEbGlzdAUEdW5pdAFpAQVjbGFpbQIHYWlyZHJvcAZhbW91bnQECWtfYWxsb3dlZAkArAICCQCsAgIFB2FpcmRyb3ACA19BXwkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBAdhbGxvd2VkCQERQGV4dHJOYXRpdmUoMTA1NSkBBQlrX2FsbG93ZWQDCQBmAgUGYW1vdW50BQdhbGxvd2VkCQACAQIbQ2FsbGVyIG5vdCBhbGxvd2VkIHRvIGNsYWltBAdrX2JlZ2luCQCsAgIFB2FpcmRyb3ACBl9iZWdpbgQFa19lbmQJAKwCAgUHYWlyZHJvcAIEX2VuZAQFYmVnaW4EByRtYXRjaDAJAJ8IAQUHa19iZWdpbgMJAAECBQckbWF0Y2gwAgNJbnQEAWoFByRtYXRjaDAFAWoAAAQDZW5kBAckbWF0Y2gwCQCfCAEFBWtfZW5kAwkAAQIFByRtYXRjaDACA0ludAQBagUHJG1hdGNoMAUBagAAAwMJAGcCAAAFBmFtb3VudAYJAGYCBQZhbW91bnQAFAkAAgECKVdyb25nIGFtb3VudCAoc2hvdWxkIGJlIGluIHJhbmdlIDEgLS0gMjApAwkAZgIFBmFtb3VudAkAZQIFA2VuZAUFYmVnaW4JAAIBAhJObyBhc3NldHMgaW4gc3RvY2sEB2luZGljZXMJAMwIAgUFYmVnaW4JAMwIAgkAZAIFBWJlZ2luAAEJAMwIAgkAZAIFBWJlZ2luAAIJAMwIAgkAZAIFBWJlZ2luAAMJAMwIAgkAZAIFBWJlZ2luAAQJAMwIAgkAZAIFBWJlZ2luAAUJAMwIAgkAZAIFBWJlZ2luAAYJAMwIAgkAZAIFBWJlZ2luAAcJAMwIAgkAZAIFBWJlZ2luAAgJAMwIAgkAZAIFBWJlZ2luAAkJAMwIAgkAZAIFBWJlZ2luAAoJAMwIAgkAZAIFBWJlZ2luAAsJAMwIAgkAZAIFBWJlZ2luAAwJAMwIAgkAZAIFBWJlZ2luAA0JAMwIAgkAZAIFBWJlZ2luAA4JAMwIAgkAZAIFBWJlZ2luAA8JAMwIAgkAZAIFBWJlZ2luABAJAMwIAgkAZAIFBWJlZ2luABEJAMwIAgkAZAIFBWJlZ2luABIJAMwIAgkAZAIFBWJlZ2luABMFA25pbAQLJHQwNDM1MzQ1MDYKAAIkbAUHaW5kaWNlcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUDbmlsBQZhbW91bnQFB2FpcmRyb3AJAQdBZGRyZXNzAQgIBQFpBmNhbGxlcgVieXRlcwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKZm9sZF9jbGFpbQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUBARsaXN0CAULJHQwNDM1MzQ1MDYCXzEEB2Ftb3VudF8IBQskdDA0MzUzNDUwNgJfMgQIYWlyZHJvcF8IBQskdDA0MzUzNDUwNgJfMwQIY2xhaW1lcl8IBQskdDA0MzUzNDUwNgJfNAkAlAoCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtfYWxsb3dlZAkAZQIFB2FsbG93ZWQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUHa19iZWdpbgkAZAIFBWJlZ2luBQZhbW91bnQFA25pbAUEbGlzdAUEdW5pdADkz3cj",
    "height": 3375253,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7Gbr33NgbcxXav4ztNamYKZ5zxAUk5G6j33NyDri6G1K
Next: 2GfPwtNpxuGA6zz7soxtsTAoLj9oF9ZQsc2Rdg9VokAF

Diff: 
Old New Differences
14 14  
15 15  
16 16  func fold_put_assets (accum,index) = {
17 -     let $t0462499 = accum
18 -     let list = $t0462499._1
19 -     let airdrop = $t0462499._2
20 -     let payments = $t0462499._3
17 +     let $t0455497 = accum
18 +     let list = $t0455497._1
19 +     let airdrop = $t0455497._2
20 +     let end = $t0455497._3
21 +     let payments = $t0455497._4
21 22      if ((index >= size(payments)))
22 23          then accum
23 24          else if ((payments[index].amount != 1))
24 25              then throw((("Wrong payment " + toString((index + 1))) + " amount"))
25 26              else {
26 -                 let key = (airdrop + "_end")
27 -                 let end =                 match getInteger(key) {
28 -                     case j: Int => 
29 -                         j
30 -                     case _ => 
31 -                         0
32 -                 }
33 27                  let id = toBase58String(value(payments[index].assetId))
34 -                 $Tuple3((list ++ [IntegerEntry(key, (end + 1)), StringEntry(((airdrop + "_X_") + toBase58String(toBytes(end))), id)]), airdrop, payments)
28 +                 $Tuple4((list ++ [StringEntry(((airdrop + "_X_") + toBase58String(toBytes((end + index)))), id)]), airdrop, end, payments)
35 29                  }
36 30      }
37 31  
38 32  
39 33  func fold_allow (accum,index) = {
40 -     let $t011121157 = accum
41 -     let list = $t011121157._1
42 -     let airdrop = $t011121157._2
43 -     let amount = $t011121157._3
44 -     let accounts = $t011121157._4
34 +     let $t09721017 = accum
35 +     let list = $t09721017._1
36 +     let airdrop = $t09721017._2
37 +     let amount = $t09721017._3
38 +     let accounts = $t09721017._4
45 39      if ((index >= size(accounts)))
46 40          then accum
47 41          else {
58 52  
59 53  
60 54  func fold_claim (accum,index) = {
61 -     let $t015531597 = accum
62 -     let list = $t015531597._1
63 -     let amount = $t015531597._2
64 -     let airdrop = $t015531597._3
65 -     let claimer = $t015531597._4
55 +     let $t014131457 = accum
56 +     let list = $t014131457._1
57 +     let amount = $t014131457._2
58 +     let airdrop = $t014131457._3
59 +     let claimer = $t014131457._4
66 60      if ((0 >= amount))
67 61          then accum
68 62          else {
95 89          else if ((size(i.payments) > 20))
96 90              then throw("To many assets")
97 91              else {
98 -                 let $t025622660 = {
92 +                 let k_end = (airdrop + "_end")
93 +                 let end =                 match getInteger(k_end) {
94 +                     case j: Int => 
95 +                         j
96 +                     case _ => 
97 +                         0
98 +                 }
99 +                 let $t025492658 = {
99 100                      let $l = indices_20
100 101                      let $s = size($l)
101 -                     let $acc0 = $Tuple3(nil, airdrop, i.payments)
102 +                     let $acc0 = $Tuple4(nil, airdrop, end, i.payments)
102 103                      func $f0_1 ($a,$i) =                     if (($i >= $s))
103 104                          then $a
104 105                          else fold_put_assets($a, $l[$i])
109 110  
110 111                      $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
111 112                      }
112 -                 let list = $t025622660._1
113 -                 let airdrop_ = $t025622660._2
114 -                 let payments_ = $t025622660._3
115 -                 $Tuple2(list, unit)
113 +                 let list = $t025492658._1
114 +                 let airdrop_ = $t025492658._2
115 +                 let end_ = $t025492658._3
116 +                 let payments_ = $t025492658._4
117 +                 $Tuple2(([IntegerEntry(k_end, (end + size(i.payments)))] ++ list), unit)
116 118                  }
117 119  
118 120  
127 129              else if ((size(accounts) > 20))
128 130                  then throw("Too many accounts")
129 131                  else {
130 -                     let $t030423150 = {
132 +                     let $t030983206 = {
131 133                          let $l = indices_20
132 134                          let $s = size($l)
133 135                          let $acc0 = $Tuple4(nil, airdrop, amount, accounts)
141 143  
142 144                          $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
143 145                          }
144 -                     let list = $t030423150._1
145 -                     let airdrop_ = $t030423150._2
146 -                     let amount_ = $t030423150._3
147 -                     let accounts_ = $t030423150._4
146 +                     let list = $t030983206._1
147 +                     let airdrop_ = $t030983206._2
148 +                     let amount_ = $t030983206._3
149 +                     let accounts_ = $t030983206._4
148 150                      $Tuple2(list, unit)
149 151                      }
150 152  
179 181                      then throw("No assets in stock")
180 182                      else {
181 183                          let indices = [begin, (begin + 1), (begin + 2), (begin + 3), (begin + 4), (begin + 5), (begin + 6), (begin + 7), (begin + 8), (begin + 9), (begin + 10), (begin + 11), (begin + 12), (begin + 13), (begin + 14), (begin + 15), (begin + 16), (begin + 17), (begin + 18), (begin + 19)]
182 -                         let $t042974450 = {
184 +                         let $t043534506 = {
183 185                              let $l = indices
184 186                              let $s = size($l)
185 187                              let $acc0 = $Tuple4(nil, amount, airdrop, Address(i.caller.bytes))
193 195  
194 196                              $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
195 197                              }
196 -                         let list = $t042974450._1
197 -                         let amount_ = $t042974450._2
198 -                         let airdrop_ = $t042974450._3
199 -                         let claimer_ = $t042974450._4
198 +                         let list = $t043534506._1
199 +                         let amount_ = $t043534506._2
200 +                         let airdrop_ = $t043534506._3
201 +                         let claimer_ = $t043534506._4
200 202                          $Tuple2(([IntegerEntry(k_allowed, (allowed - amount)), IntegerEntry(k_begin, (begin + amount))] ++ list), unit)
201 203                          }
202 204              }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let indices_20 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
5 5  
6 6  func check_whitelist (caller) = if ((this == caller))
7 7      then true
8 8      else     match getBoolean(("W_" + toBase58String(caller.bytes))) {
9 9          case x: Boolean => 
10 10              x
11 11          case _ => 
12 12              false
13 13      }
14 14  
15 15  
16 16  func fold_put_assets (accum,index) = {
17 -     let $t0462499 = accum
18 -     let list = $t0462499._1
19 -     let airdrop = $t0462499._2
20 -     let payments = $t0462499._3
17 +     let $t0455497 = accum
18 +     let list = $t0455497._1
19 +     let airdrop = $t0455497._2
20 +     let end = $t0455497._3
21 +     let payments = $t0455497._4
21 22      if ((index >= size(payments)))
22 23          then accum
23 24          else if ((payments[index].amount != 1))
24 25              then throw((("Wrong payment " + toString((index + 1))) + " amount"))
25 26              else {
26 -                 let key = (airdrop + "_end")
27 -                 let end =                 match getInteger(key) {
28 -                     case j: Int => 
29 -                         j
30 -                     case _ => 
31 -                         0
32 -                 }
33 27                  let id = toBase58String(value(payments[index].assetId))
34 -                 $Tuple3((list ++ [IntegerEntry(key, (end + 1)), StringEntry(((airdrop + "_X_") + toBase58String(toBytes(end))), id)]), airdrop, payments)
28 +                 $Tuple4((list ++ [StringEntry(((airdrop + "_X_") + toBase58String(toBytes((end + index)))), id)]), airdrop, end, payments)
35 29                  }
36 30      }
37 31  
38 32  
39 33  func fold_allow (accum,index) = {
40 -     let $t011121157 = accum
41 -     let list = $t011121157._1
42 -     let airdrop = $t011121157._2
43 -     let amount = $t011121157._3
44 -     let accounts = $t011121157._4
34 +     let $t09721017 = accum
35 +     let list = $t09721017._1
36 +     let airdrop = $t09721017._2
37 +     let amount = $t09721017._3
38 +     let accounts = $t09721017._4
45 39      if ((index >= size(accounts)))
46 40          then accum
47 41          else {
48 42              let key = ((airdrop + "_A_") + accounts[index])
49 43              let allowed =             match getInteger(key) {
50 44                  case j: Int => 
51 45                      j
52 46                  case _ => 
53 47                      0
54 48              }
55 49              $Tuple4((list :+ IntegerEntry(key, (allowed + amount))), airdrop, amount, accounts)
56 50              }
57 51      }
58 52  
59 53  
60 54  func fold_claim (accum,index) = {
61 -     let $t015531597 = accum
62 -     let list = $t015531597._1
63 -     let amount = $t015531597._2
64 -     let airdrop = $t015531597._3
65 -     let claimer = $t015531597._4
55 +     let $t014131457 = accum
56 +     let list = $t014131457._1
57 +     let amount = $t014131457._2
58 +     let airdrop = $t014131457._3
59 +     let claimer = $t014131457._4
66 60      if ((0 >= amount))
67 61          then accum
68 62          else {
69 63              let asset_key = ((airdrop + "_X_") + toBase58String(toBytes(index)))
70 64              let asset_id = fromBase58String(getStringValue(asset_key))
71 65              $Tuple4((list ++ [DeleteEntry(asset_key), ScriptTransfer(claimer, 1, asset_id)]), (amount - 1), airdrop, claimer)
72 66              }
73 67      }
74 68  
75 69  
76 70  @Callable(i)
77 71  func whitelist_add (user) = if ((this != i.caller))
78 72      then throw("Caller is not dApp owner")
79 73      else $Tuple2([BooleanEntry(("W_" + user), true)], unit)
80 74  
81 75  
82 76  
83 77  @Callable(i)
84 78  func whitelist_remove (user) = if ((this != i.caller))
85 79      then throw("Caller is not dApp owner")
86 80      else $Tuple2([DeleteEntry(("W_" + user))], unit)
87 81  
88 82  
89 83  
90 84  @Callable(i)
91 85  func put_assets (airdrop) = if (!(check_whitelist(i.caller)))
92 86      then throw("Caller not in whitelist")
93 87      else if ((size(i.payments) == 0))
94 88          then throw("No payment")
95 89          else if ((size(i.payments) > 20))
96 90              then throw("To many assets")
97 91              else {
98 -                 let $t025622660 = {
92 +                 let k_end = (airdrop + "_end")
93 +                 let end =                 match getInteger(k_end) {
94 +                     case j: Int => 
95 +                         j
96 +                     case _ => 
97 +                         0
98 +                 }
99 +                 let $t025492658 = {
99 100                      let $l = indices_20
100 101                      let $s = size($l)
101 -                     let $acc0 = $Tuple3(nil, airdrop, i.payments)
102 +                     let $acc0 = $Tuple4(nil, airdrop, end, i.payments)
102 103                      func $f0_1 ($a,$i) =                     if (($i >= $s))
103 104                          then $a
104 105                          else fold_put_assets($a, $l[$i])
105 106  
106 107                      func $f0_2 ($a,$i) =                     if (($i >= $s))
107 108                          then $a
108 109                          else throw("List size exceeds 20")
109 110  
110 111                      $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
111 112                      }
112 -                 let list = $t025622660._1
113 -                 let airdrop_ = $t025622660._2
114 -                 let payments_ = $t025622660._3
115 -                 $Tuple2(list, unit)
113 +                 let list = $t025492658._1
114 +                 let airdrop_ = $t025492658._2
115 +                 let end_ = $t025492658._3
116 +                 let payments_ = $t025492658._4
117 +                 $Tuple2(([IntegerEntry(k_end, (end + size(i.payments)))] ++ list), unit)
116 118                  }
117 119  
118 120  
119 121  
120 122  @Callable(i)
121 123  func allow (airdrop,amount,accounts) = if (!(check_whitelist(i.caller)))
122 124      then throw("Caller not in whitelist")
123 125      else if ((amount == 0))
124 126          then throw("Wrong amount")
125 127          else if ((size(accounts) == 0))
126 128              then throw("No accounts")
127 129              else if ((size(accounts) > 20))
128 130                  then throw("Too many accounts")
129 131                  else {
130 -                     let $t030423150 = {
132 +                     let $t030983206 = {
131 133                          let $l = indices_20
132 134                          let $s = size($l)
133 135                          let $acc0 = $Tuple4(nil, airdrop, amount, accounts)
134 136                          func $f0_1 ($a,$i) =                         if (($i >= $s))
135 137                              then $a
136 138                              else fold_allow($a, $l[$i])
137 139  
138 140                          func $f0_2 ($a,$i) =                         if (($i >= $s))
139 141                              then $a
140 142                              else throw("List size exceeds 20")
141 143  
142 144                          $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
143 145                          }
144 -                     let list = $t030423150._1
145 -                     let airdrop_ = $t030423150._2
146 -                     let amount_ = $t030423150._3
147 -                     let accounts_ = $t030423150._4
146 +                     let list = $t030983206._1
147 +                     let airdrop_ = $t030983206._2
148 +                     let amount_ = $t030983206._3
149 +                     let accounts_ = $t030983206._4
148 150                      $Tuple2(list, unit)
149 151                      }
150 152  
151 153  
152 154  
153 155  @Callable(i)
154 156  func claim (airdrop,amount) = {
155 157      let k_allowed = ((airdrop + "_A_") + toBase58String(i.caller.bytes))
156 158      let allowed = getIntegerValue(k_allowed)
157 159      if ((amount > allowed))
158 160          then throw("Caller not allowed to claim")
159 161          else {
160 162              let k_begin = (airdrop + "_begin")
161 163              let k_end = (airdrop + "_end")
162 164              let begin =             match getInteger(k_begin) {
163 165                  case j: Int => 
164 166                      j
165 167                  case _ => 
166 168                      0
167 169              }
168 170              let end =             match getInteger(k_end) {
169 171                  case j: Int => 
170 172                      j
171 173                  case _ => 
172 174                      0
173 175              }
174 176              if (if ((0 >= amount))
175 177                  then true
176 178                  else (amount > 20))
177 179                  then throw("Wrong amount (should be in range 1 -- 20)")
178 180                  else if ((amount > (end - begin)))
179 181                      then throw("No assets in stock")
180 182                      else {
181 183                          let indices = [begin, (begin + 1), (begin + 2), (begin + 3), (begin + 4), (begin + 5), (begin + 6), (begin + 7), (begin + 8), (begin + 9), (begin + 10), (begin + 11), (begin + 12), (begin + 13), (begin + 14), (begin + 15), (begin + 16), (begin + 17), (begin + 18), (begin + 19)]
182 -                         let $t042974450 = {
184 +                         let $t043534506 = {
183 185                              let $l = indices
184 186                              let $s = size($l)
185 187                              let $acc0 = $Tuple4(nil, amount, airdrop, Address(i.caller.bytes))
186 188                              func $f0_1 ($a,$i) =                             if (($i >= $s))
187 189                                  then $a
188 190                                  else fold_claim($a, $l[$i])
189 191  
190 192                              func $f0_2 ($a,$i) =                             if (($i >= $s))
191 193                                  then $a
192 194                                  else throw("List size exceeds 20")
193 195  
194 196                              $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
195 197                              }
196 -                         let list = $t042974450._1
197 -                         let amount_ = $t042974450._2
198 -                         let airdrop_ = $t042974450._3
199 -                         let claimer_ = $t042974450._4
198 +                         let list = $t043534506._1
199 +                         let amount_ = $t043534506._2
200 +                         let airdrop_ = $t043534506._3
201 +                         let claimer_ = $t043534506._4
200 202                          $Tuple2(([IntegerEntry(k_allowed, (allowed - amount)), IntegerEntry(k_begin, (begin + amount))] ++ list), unit)
201 203                          }
202 204              }
203 205      }
204 206  
205 207

Old	New		Differences
14	14
15	15
16	16		func fold_put_assets (accum,index) = {
17		-	let $t0462499 = accum
18		-	let list = $t0462499._1
19		-	let airdrop = $t0462499._2
20		-	let payments = $t0462499._3
	17	+	let $t0455497 = accum
	18	+	let list = $t0455497._1
	19	+	let airdrop = $t0455497._2
	20	+	let end = $t0455497._3
	21	+	let payments = $t0455497._4
21	22		if ((index >= size(payments)))
22	23		then accum
23	24		else if ((payments[index].amount != 1))
24	25		then throw((("Wrong payment " + toString((index + 1))) + " amount"))
25	26		else {
26		-	let key = (airdrop + "_end")
27		-	let end = match getInteger(key) {
28		-	case j: Int =>
29		-	j
30		-	case _ =>
31		-	0
32		-	}
33	27		let id = toBase58String(value(payments[index].assetId))
34		-	$~~Tuple3~~((list ++ [~~IntegerEntry(key, (end + 1)),~~ StringEntry(((airdrop + "_X_") + toBase58String(toBytes(end))), id)]), airdrop, payments)
	28	+	$Tuple4((list ++ [StringEntry(((airdrop + "_X_") + toBase58String(toBytes((end + index)))), id)]), airdrop, end, payments)
35	29		}
36	30		}
37	31
38	32
39	33		func fold_allow (accum,index) = {
40		-	let $~~t011121157~~ = accum
41		-	let list = $~~t011121157~~._1
42		-	let airdrop = $~~t011121157~~._2
43		-	let amount = $~~t011121157~~._3
44		-	let accounts = $~~t011121157~~._4
	34	+	let $t09721017 = accum
	35	+	let list = $t09721017._1
	36	+	let airdrop = $t09721017._2
	37	+	let amount = $t09721017._3
	38	+	let accounts = $t09721017._4
45	39		if ((index >= size(accounts)))
46	40		then accum
47	41		else {

58	52
59	53
60	54		func fold_claim (accum,index) = {
61		-	let $~~t015531597~~ = accum
62		-	let list = $~~t015531597~~._1
63		-	let amount = $~~t015531597~~._2
64		-	let airdrop = $~~t015531597~~._3
65		-	let claimer = $~~t015531597~~._4
	55	+	let $t014131457 = accum
	56	+	let list = $t014131457._1
	57	+	let amount = $t014131457._2
	58	+	let airdrop = $t014131457._3
	59	+	let claimer = $t014131457._4
66	60		if ((0 >= amount))
67	61		then accum
68	62		else {

95	89		else if ((size(i.payments) > 20))
96	90		then throw("To many assets")
97	91		else {
98		-	let $t025622660 = {
	92	+	let k_end = (airdrop + "_end")
	93	+	let end = match getInteger(k_end) {
	94	+	case j: Int =>
	95	+	j
	96	+	case _ =>
	97	+	0
	98	+	}
	99	+	let $t025492658 = {
99	100		let $l = indices_20
100	101		let $s = size($l)
101		-	let $acc0 = $~~Tuple3~~(nil, airdrop, i.payments)
	102	+	let $acc0 = $Tuple4(nil, airdrop, end, i.payments)
102	103		func $f0_1 ($a,$i) = if (($i >= $s))
103	104		then $a
104	105		else fold_put_assets($a, $l[$i])

109	110
110	111		$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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
111	112		}
112		-	let list = $t025622660._1
113		-	let airdrop_ = $t025622660._2
114		-	let payments_ = $t025622660._3
115		-	$Tuple2(list, unit)
	113	+	let list = $t025492658._1
	114	+	let airdrop_ = $t025492658._2
	115	+	let end_ = $t025492658._3
	116	+	let payments_ = $t025492658._4
	117	+	$Tuple2(([IntegerEntry(k_end, (end + size(i.payments)))] ++ list), unit)
116	118		}
117	119
118	120

127	129		else if ((size(accounts) > 20))
128	130		then throw("Too many accounts")
129	131		else {
130		-	let $~~t030423150~~ = {
	132	+	let $t030983206 = {
131	133		let $l = indices_20
132	134		let $s = size($l)
133	135		let $acc0 = $Tuple4(nil, airdrop, amount, accounts)

141	143
142	144		$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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
143	145		}
144		-	let list = $~~t030423150~~._1
145		-	let airdrop_ = $~~t030423150~~._2
146		-	let amount_ = $~~t030423150~~._3
147		-	let accounts_ = $~~t030423150~~._4
	146	+	let list = $t030983206._1
	147	+	let airdrop_ = $t030983206._2
	148	+	let amount_ = $t030983206._3
	149	+	let accounts_ = $t030983206._4
148	150		$Tuple2(list, unit)
149	151		}
150	152

179	181		then throw("No assets in stock")
180	182		else {
181	183		let indices = [begin, (begin + 1), (begin + 2), (begin + 3), (begin + 4), (begin + 5), (begin + 6), (begin + 7), (begin + 8), (begin + 9), (begin + 10), (begin + 11), (begin + 12), (begin + 13), (begin + 14), (begin + 15), (begin + 16), (begin + 17), (begin + 18), (begin + 19)]
182		-	let $~~t042974450~~ = {
	184	+	let $t043534506 = {
183	185		let $l = indices
184	186		let $s = size($l)
185	187		let $acc0 = $Tuple4(nil, amount, airdrop, Address(i.caller.bytes))

193	195
194	196		$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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
195	197		}
196		-	let list = $~~t042974450~~._1
197		-	let amount_ = $~~t042974450~~._2
198		-	let airdrop_ = $~~t042974450~~._3
199		-	let claimer_ = $~~t042974450~~._4
	198	+	let list = $t043534506._1
	199	+	let amount_ = $t043534506._2
	200	+	let airdrop_ = $t043534506._3
	201	+	let claimer_ = $t043534506._4
200	202		$Tuple2(([IntegerEntry(k_allowed, (allowed - amount)), IntegerEntry(k_begin, (begin + amount))] ++ list), unit)
201	203		}
202	204		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let indices_20 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
5	5
6	6		func check_whitelist (caller) = if ((this == caller))
7	7		then true
8	8		else match getBoolean(("W_" + toBase58String(caller.bytes))) {
9	9		case x: Boolean =>
10	10		x
11	11		case _ =>
12	12		false
13	13		}
14	14
15	15
16	16		func fold_put_assets (accum,index) = {
17		-	let $t0462499 = accum
18		-	let list = $t0462499._1
19		-	let airdrop = $t0462499._2
20		-	let payments = $t0462499._3
	17	+	let $t0455497 = accum
	18	+	let list = $t0455497._1
	19	+	let airdrop = $t0455497._2
	20	+	let end = $t0455497._3
	21	+	let payments = $t0455497._4
21	22		if ((index >= size(payments)))
22	23		then accum
23	24		else if ((payments[index].amount != 1))
24	25		then throw((("Wrong payment " + toString((index + 1))) + " amount"))
25	26		else {
26		-	let key = (airdrop + "_end")
27		-	let end = match getInteger(key) {
28		-	case j: Int =>
29		-	j
30		-	case _ =>
31		-	0
32		-	}
33	27		let id = toBase58String(value(payments[index].assetId))
34		-	$~~Tuple3~~((list ++ [~~IntegerEntry(key, (end + 1)),~~ StringEntry(((airdrop + "_X_") + toBase58String(toBytes(end))), id)]), airdrop, payments)
	28	+	$Tuple4((list ++ [StringEntry(((airdrop + "_X_") + toBase58String(toBytes((end + index)))), id)]), airdrop, end, payments)
35	29		}
36	30		}
37	31
38	32
39	33		func fold_allow (accum,index) = {
40		-	let $~~t011121157~~ = accum
41		-	let list = $~~t011121157~~._1
42		-	let airdrop = $~~t011121157~~._2
43		-	let amount = $~~t011121157~~._3
44		-	let accounts = $~~t011121157~~._4
	34	+	let $t09721017 = accum
	35	+	let list = $t09721017._1
	36	+	let airdrop = $t09721017._2
	37	+	let amount = $t09721017._3
	38	+	let accounts = $t09721017._4
45	39		if ((index >= size(accounts)))
46	40		then accum
47	41		else {
48	42		let key = ((airdrop + "_A_") + accounts[index])
49	43		let allowed = match getInteger(key) {
50	44		case j: Int =>
51	45		j
52	46		case _ =>
53	47		0
54	48		}
55	49		$Tuple4((list :+ IntegerEntry(key, (allowed + amount))), airdrop, amount, accounts)
56	50		}
57	51		}
58	52
59	53
60	54		func fold_claim (accum,index) = {
61		-	let $~~t015531597~~ = accum
62		-	let list = $~~t015531597~~._1
63		-	let amount = $~~t015531597~~._2
64		-	let airdrop = $~~t015531597~~._3
65		-	let claimer = $~~t015531597~~._4
	55	+	let $t014131457 = accum
	56	+	let list = $t014131457._1
	57	+	let amount = $t014131457._2
	58	+	let airdrop = $t014131457._3
	59	+	let claimer = $t014131457._4
66	60		if ((0 >= amount))
67	61		then accum
68	62		else {
69	63		let asset_key = ((airdrop + "_X_") + toBase58String(toBytes(index)))
70	64		let asset_id = fromBase58String(getStringValue(asset_key))
71	65		$Tuple4((list ++ [DeleteEntry(asset_key), ScriptTransfer(claimer, 1, asset_id)]), (amount - 1), airdrop, claimer)
72	66		}
73	67		}
74	68
75	69
76	70		@Callable(i)
77	71		func whitelist_add (user) = if ((this != i.caller))
78	72		then throw("Caller is not dApp owner")
79	73		else $Tuple2([BooleanEntry(("W_" + user), true)], unit)
80	74
81	75
82	76
83	77		@Callable(i)
84	78		func whitelist_remove (user) = if ((this != i.caller))
85	79		then throw("Caller is not dApp owner")
86	80		else $Tuple2([DeleteEntry(("W_" + user))], unit)
87	81
88	82
89	83
90	84		@Callable(i)
91	85		func put_assets (airdrop) = if (!(check_whitelist(i.caller)))
92	86		then throw("Caller not in whitelist")
93	87		else if ((size(i.payments) == 0))
94	88		then throw("No payment")
95	89		else if ((size(i.payments) > 20))
96	90		then throw("To many assets")
97	91		else {
98		-	let $t025622660 = {
	92	+	let k_end = (airdrop + "_end")
	93	+	let end = match getInteger(k_end) {
	94	+	case j: Int =>
	95	+	j
	96	+	case _ =>
	97	+	0
	98	+	}
	99	+	let $t025492658 = {
99	100		let $l = indices_20
100	101		let $s = size($l)
101		-	let $acc0 = $~~Tuple3~~(nil, airdrop, i.payments)
	102	+	let $acc0 = $Tuple4(nil, airdrop, end, i.payments)
102	103		func $f0_1 ($a,$i) = if (($i >= $s))
103	104		then $a
104	105		else fold_put_assets($a, $l[$i])
105	106
106	107		func $f0_2 ($a,$i) = if (($i >= $s))
107	108		then $a
108	109		else throw("List size exceeds 20")
109	110
110	111		$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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
111	112		}
112		-	let list = $t025622660._1
113		-	let airdrop_ = $t025622660._2
114		-	let payments_ = $t025622660._3
115		-	$Tuple2(list, unit)
	113	+	let list = $t025492658._1
	114	+	let airdrop_ = $t025492658._2
	115	+	let end_ = $t025492658._3
	116	+	let payments_ = $t025492658._4
	117	+	$Tuple2(([IntegerEntry(k_end, (end + size(i.payments)))] ++ list), unit)
116	118		}
117	119
118	120
119	121
120	122		@Callable(i)
121	123		func allow (airdrop,amount,accounts) = if (!(check_whitelist(i.caller)))
122	124		then throw("Caller not in whitelist")
123	125		else if ((amount == 0))
124	126		then throw("Wrong amount")
125	127		else if ((size(accounts) == 0))
126	128		then throw("No accounts")
127	129		else if ((size(accounts) > 20))
128	130		then throw("Too many accounts")
129	131		else {
130		-	let $~~t030423150~~ = {
	132	+	let $t030983206 = {
131	133		let $l = indices_20
132	134		let $s = size($l)
133	135		let $acc0 = $Tuple4(nil, airdrop, amount, accounts)
134	136		func $f0_1 ($a,$i) = if (($i >= $s))
135	137		then $a
136	138		else fold_allow($a, $l[$i])
137	139
138	140		func $f0_2 ($a,$i) = if (($i >= $s))
139	141		then $a
140	142		else throw("List size exceeds 20")
141	143
142	144		$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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
143	145		}
144		-	let list = $~~t030423150~~._1
145		-	let airdrop_ = $~~t030423150~~._2
146		-	let amount_ = $~~t030423150~~._3
147		-	let accounts_ = $~~t030423150~~._4
	146	+	let list = $t030983206._1
	147	+	let airdrop_ = $t030983206._2
	148	+	let amount_ = $t030983206._3
	149	+	let accounts_ = $t030983206._4
148	150		$Tuple2(list, unit)
149	151		}
150	152
151	153
152	154
153	155		@Callable(i)
154	156		func claim (airdrop,amount) = {
155	157		let k_allowed = ((airdrop + "_A_") + toBase58String(i.caller.bytes))
156	158		let allowed = getIntegerValue(k_allowed)
157	159		if ((amount > allowed))
158	160		then throw("Caller not allowed to claim")
159	161		else {
160	162		let k_begin = (airdrop + "_begin")
161	163		let k_end = (airdrop + "_end")
162	164		let begin = match getInteger(k_begin) {
163	165		case j: Int =>
164	166		j
165	167		case _ =>
166	168		0
167	169		}
168	170		let end = match getInteger(k_end) {
169	171		case j: Int =>
170	172		j
171	173		case _ =>
172	174		0
173	175		}
174	176		if (if ((0 >= amount))
175	177		then true
176	178		else (amount > 20))
177	179		then throw("Wrong amount (should be in range 1 -- 20)")
178	180		else if ((amount > (end - begin)))
179	181		then throw("No assets in stock")
180	182		else {
181	183		let indices = [begin, (begin + 1), (begin + 2), (begin + 3), (begin + 4), (begin + 5), (begin + 6), (begin + 7), (begin + 8), (begin + 9), (begin + 10), (begin + 11), (begin + 12), (begin + 13), (begin + 14), (begin + 15), (begin + 16), (begin + 17), (begin + 18), (begin + 19)]
182		-	let $~~t042974450~~ = {
	184	+	let $t043534506 = {
183	185		let $l = indices
184	186		let $s = size($l)
185	187		let $acc0 = $Tuple4(nil, amount, airdrop, Address(i.caller.bytes))
186	188		func $f0_1 ($a,$i) = if (($i >= $s))
187	189		then $a
188	190		else fold_claim($a, $l[$i])
189	191
190	192		func $f0_2 ($a,$i) = if (($i >= $s))
191	193		then $a
192	194		else throw("List size exceeds 20")
193	195
194	196		$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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
195	197		}
196		-	let list = $~~t042974450~~._1
197		-	let amount_ = $~~t042974450~~._2
198		-	let airdrop_ = $~~t042974450~~._3
199		-	let claimer_ = $~~t042974450~~._4
	198	+	let list = $t043534506._1
	199	+	let amount_ = $t043534506._2
	200	+	let airdrop_ = $t043534506._3
	201	+	let claimer_ = $t043534506._4
200	202		$Tuple2(([IntegerEntry(k_allowed, (allowed - amount)), IntegerEntry(k_begin, (begin + amount))] ++ list), unit)
201	203		}
202	204		}
203	205		}
204	206
205	207

github/deemru/w8io/3ef1775 
49.82 ms ◑