w8 · tx · FyG···6v7

tx · FyGRmirLtAHHbCKgmYnj2imEf4kLYUYJ1RwHZ2uw46v7

3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq:  -0.01000000 Waves

2023.06.27 13:46 [2640968] smart account 3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FyGRmirLtAHHbCKgmYnj2imEf4kLYUYJ1RwHZ2uw46v7",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1687862905666,
    "version": 2,
    "chainId": 84,
    "sender": "3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq",
    "senderPublicKey": "ERewvWFUFQfR1eCnipNAv9n7SdQhof2ESP6PGVjTueLd",
    "proofs": [
        "5FBp9UsMHqmEV6BL4M9YKd5HPewCqRdkHaMHmNXcgN3NeayJTjPBzSm6Qc13WE11Ki8S7hzvUn531T2rMcPpLG12"
    ],
    "script": "base64:BgI1CAISBAoCAQgSABIFCgMIAQgSABIDCgEBEgMKAQESAwoBARIECgIIARIAEgQKAggBEgMKAQgGAANhcnIJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsAARhcnIyCQDMCAIAAQkAzAgCAAIFA25pbAEDc3VtAgFhAWIJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM04zRG5WZmZuVXladHoyTVJiazVVN2dpTjExMldlbXBNTmQCBmJvcnJvdwkAzAgCAiwyNUZFcUVqUmtxSzZ5Q2tpVDdMejZTQVl6N2dVRkN0eGZDQ2huclZGRDVBVAkAzAgCAMCEPQUDbmlsBQNuaWwBD2dldEN1cnJlbnRQcmljZQEKYXNzZXRJZFN0cgMJAAACBQphc3NldElkU3RyAgVXQVZFUwACCQACAQIFRXJyb3IBCmdldEJhbGFuY2UCCmFzc2V0SWRTdHIHYWRkcmVzcwMJAAACBQphc3NldElkU3RyAgVXQVZFUwgJAO8HAQUHYWRkcmVzcwlhdmFpbGFibGUJAPAHAgUHYWRkcmVzcwkA2QQBBQphc3NldElkU3RyARl0cmFuc2ZlcldhdmVzVGVzdEludGVybmFsAwphc3NldElkU3RyC2Fzc2V0QW1vdW50B2FkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICBQdhZGRyZXNzAgtfZGVwb3NpdGVkXwUKYXNzZXRJZFN0cgULYXNzZXRBbW91bnQFA25pbAsBaQENdHJhbnNmZXJXYXZlcwILYXNzZXRBbW91bnQNc2VuZGVyQWRkcmVzcwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECLG9ubHkgZm9yIGludGVybmFsIHNtYXJ0IGNvbnRyYWN0IGludm9jYXRpb25zCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBHRoaXMFC2Fzc2V0QW1vdW50BQR1bml0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFDXNlbmRlckFkZHJlc3MCEF9kZXBvc2l0ZWRfV0FWRVMFC2Fzc2V0QW1vdW50BQNuaWwBaQERdHJhbnNmZXJXYXZlc1Rlc3QAAwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQYJAAACCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAAACQACAQIcMSBwYXltZW50IGhhcyB0byBiZSBhdHRhY2hlZAQKYXNzZXRJZFN0cgIFV0FWRVMEC2Fzc2V0QW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkBGXRyYW5zZmVyV2F2ZXNUZXN0SW50ZXJuYWwDBQphc3NldElkU3RyBQthc3NldEFtb3VudAkApQgBCAUBaQZjYWxsZXIBaQESdHJhbnNmZXJXYXZlc1Rlc3QyAwphc3NldElkU3RyC2Fzc2V0QW1vdW50B2FkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICBQdhZGRyZXNzAgtfZGVwb3NpdGVkXwUKYXNzZXRJZFN0cgULYXNzZXRBbW91bnQFA25pbAFpAQZsb25nMXgABANyZXMJAPwHBAUEdGhpcwISdHJhbnNmZXJXYXZlc1Rlc3QyCQDMCAICBVdBVkVTCQDMCAIAgMLXLwkAzAgCCQClCAEIBQFpBmNhbGxlcgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQR1bml0AIDC1y8FA25pbAMJAAACBQNyZXMFA3JlcwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBBmxvbmcyeAELYXNzZXRBbW91bnQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyBA1jdXJyZW50QW1vdW50CQEKZ2V0QmFsYW5jZQICBVdBVkVTCAUBaQZjYWxsZXIDCQBmAgUNY3VycmVudEFtb3VudAULYXNzZXRBbW91bnQKAQpyZXBlYXRGdW5jAgVhY2N1bQRuZXh0BA50cmFuc2ZlclJlc3VsdAkA/AcEBQR0aGlzAg10cmFuc2ZlcldhdmVzCQDMCAIFC2Fzc2V0QW1vdW50CQDMCAIIBQFpBmNhbGxlcgUDbmlsBQNuaWwDCQAAAgUOdHJhbnNmZXJSZXN1bHQFDnRyYW5zZmVyUmVzdWx0BAxzdXBwbHlSZXN1bHQJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM04zRG5WZmZuVXladHoyTVJiazVVN2dpTjExMldlbXBNTmQCBnN1cHBseQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQR1bml0BQthc3NldEFtb3VudAUDbmlsAwkAAAIFDHN1cHBseVJlc3VsdAUMc3VwcGx5UmVzdWx0BAxib3Jyb3dSZXN1bHQJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM04zRG5WZmZuVXladHoyTVJiazVVN2dpTjExMldlbXBNTmQCBmJvcnJvdwkAzAgCAiwyNUZFcUVqUmtxSzZ5Q2tpVDdMejZTQVl6N2dVRkN0eGZDQ2huclZGRDVBVAkAzAgCCQBpAgkAaAIFC2Fzc2V0QW1vdW50CQEPZ2V0Q3VycmVudFByaWNlAQIFV0FWRVMAZAUDbmlsBQNuaWwDCQAAAgUMYm9ycm93UmVzdWx0BQxib3Jyb3dSZXN1bHQJAGQCBQVhY2N1bQUEbmV4dAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQFYXJyYXkJAMwIAgULYXNzZXRBbW91bnQJAMwIAgULYXNzZXRBbW91bnQFA25pbAQDcmVzCgACJGwFBWFycmF5CgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQpyZXBlYXRGdW5jAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAyCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIFB2FkZHJlc3MCCl9ib3Jyb3dlZF8CLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQBoAgULYXNzZXRBbW91bnQJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIJAGkCCQBoAgUDcmVzCQEPZ2V0Q3VycmVudFByaWNlAQIFV0FWRVMAZAEgD/IcEqzkxDya7EYaqyWosOy6BytGzG2IcvC14pJJAbQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUEdGhpcwUDcmVzBQR1bml0BQNuaWwJAAIBAgZFcnJvciEBaQEGYm9ycm93AQthc3NldEFtb3VudAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEA3JlcwkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIFC2Fzc2V0QW1vdW50BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2Fzc2V0QW1vdW50ASAP8hwSrOTEPJrsRhqrJaiw7LoHK0bMbYhy8LXikkkBtAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIFB2FkZHJlc3MCCl9ib3Jyb3dlZF8CLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUBQthc3NldEFtb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBB2JvcnJvdzIBC2Fzc2V0QW1vdW50BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgoBCnJlcGVhdEZ1bmMCBWFjY3VtBG5leHQEBnJlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIFC2Fzc2V0QW1vdW50BQNuaWwFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAkAZAIFBWFjY3VtBQRuZXh0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAVhcnJheQkAzAgCBQthc3NldEFtb3VudAkAzAgCBQthc3NldEFtb3VudAUDbmlsBANyZXMKAAIkbAUFYXJyYXkKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnJlcGVhdEZ1bmMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQFC2Fzc2V0QW1vdW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUDcmVzASAP8hwSrOTEPJrsRhqrJaiw7LoHK0bMbYhy8LXikkkBtAUDbmlsAWkBB2JvcnJvdzUCCmFzc2V0SWRTdHILYXNzZXRBbW91bnQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyBANyZXMKAAIkbAUDYXJyCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQNzdW0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAwkAAAIFA3JlcwUDcmVzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwUKYXNzZXRJZFN0cgULYXNzZXRBbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQdkZXBvc2l0AAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEA3JlcwkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGc3VwcGx5BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQAwIQ9BQNuaWwDCQAAAgUDcmVzBQNyZXMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUHYWRkcmVzcwIMc3VwcGx5X3dhdmVzAMCEPQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCHdpdGhkcmF3Agphc3NldElkU3RyC2Fzc2V0QW1vdW50BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgh3aXRoZHJhdwkAzAgCBQphc3NldElkU3RyCQDMCAIFC2Fzc2V0QW1vdW50BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIFB2FkZHJlc3MCCl93aXRoZHJld18FCmFzc2V0SWRTdHIFC2Fzc2V0QW1vdW50BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEMY2hlY2tCYWxhbmNlAQphc3NldElkU3RyBAdhZGRyZXNzCAUBaQZjYWxsZXIDCQAAAgUKYXNzZXRJZFN0cgIFV0FWRVMJAMwIAgkBDEludGVnZXJFbnRyeQICDVdhdmVzIEJhbGFuY2UICQDvBwEFB2FkZHJlc3MJYXZhaWxhYmxlBQNuaWwJAMwIAgkBDEludGVnZXJFbnRyeQICDUFzc2V0IEJhbGFuY2UJAPAHAgUHYWRkcmVzcwkA2QQBBQphc3NldElkU3RyBQNuaWwBAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V50uq9qQ==",
    "height": 2640968,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: VwToUbpMaF3Ja1Vg88oE5hU8wf8vkT93ZSqYonPGzWK
Next: EfinvNgqFFbWF93T6Q2TXEhtUtLSjsy27fRV7nHG8TRV

Diff: 
Old New Differences
47 47  
48 48  
49 49  @Callable(i)
50 - func long1x (assetAmount) = {
51 -     let res = invoke(this, "transferWavesTest2", ["WAVES", assetAmount, toString(i.caller)], [AttachedPayment(unit, assetAmount)])
50 + func long1x () = {
51 +     let res = invoke(this, "transferWavesTest2", ["WAVES", 100000000, toString(i.caller)], [AttachedPayment(unit, 100000000)])
52 52      if ((res == res))
53 53          then nil
54 54          else throw("Strict value is not equal to itself.")
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let arr = [1, 2, 3, 4, 5]
5 5  
6 6  let arr2 = [1, 2]
7 7  
8 8  func sum (a,b) = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", 1000000], nil)
9 9  
10 10  
11 11  func getCurrentPrice (assetIdStr) = if ((assetIdStr == "WAVES"))
12 12      then 2
13 13      else throw("Error")
14 14  
15 15  
16 16  func getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
17 17      then wavesBalance(address).available
18 18      else assetBalance(address, fromBase58String(assetIdStr))
19 19  
20 20  
21 21  func transferWavesTestInternal (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
22 22  
23 23  
24 24  @Callable(i)
25 25  func transferWaves (assetAmount,senderAddress) = if ((i.caller != this))
26 26      then throw("only for internal smart contract invocations")
27 27      else [ScriptTransfer(this, assetAmount, unit), IntegerEntry((senderAddress + "_deposited_WAVES"), assetAmount)]
28 28  
29 29  
30 30  
31 31  @Callable(i)
32 32  func transferWavesTest () = if (if ((size(i.payments) != 1))
33 33      then true
34 34      else (i.payments[0].amount == 0))
35 35      then throw("1 payment has to be attached")
36 36      else {
37 37          let assetIdStr = "WAVES"
38 38          let assetAmount = i.payments[0].amount
39 39          transferWavesTestInternal(assetIdStr, assetAmount, toString(i.caller))
40 40          }
41 41  
42 42  
43 43  
44 44  @Callable(i)
45 45  func transferWavesTest2 (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
46 46  
47 47  
48 48  
49 49  @Callable(i)
50 - func long1x (assetAmount) = {
51 -     let res = invoke(this, "transferWavesTest2", ["WAVES", assetAmount, toString(i.caller)], [AttachedPayment(unit, assetAmount)])
50 + func long1x () = {
51 +     let res = invoke(this, "transferWavesTest2", ["WAVES", 100000000, toString(i.caller)], [AttachedPayment(unit, 100000000)])
52 52      if ((res == res))
53 53          then nil
54 54          else throw("Strict value is not equal to itself.")
55 55      }
56 56  
57 57  
58 58  
59 59  @Callable(i)
60 60  func long2x (assetAmount) = {
61 61      let address = toString(i.caller)
62 62      let currentAmount = getBalance("WAVES", i.caller)
63 63      if ((currentAmount > assetAmount))
64 64          then {
65 65              func repeatFunc (accum,next) =             {
66 66                  let transferResult = invoke(this, "transferWaves", [assetAmount, i.caller], nil)
67 67                  if ((transferResult == transferResult))
68 68                      then {
69 69                          let supplyResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, assetAmount)])
70 70                          if ((supplyResult == supplyResult))
71 71                              then {
72 72                                  let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((assetAmount * getCurrentPrice("WAVES")) / 100)], nil)
73 73                                  if ((borrowResult == borrowResult))
74 74                                      then (accum + next)
75 75                                      else throw("Strict value is not equal to itself.")
76 76                                  }
77 77                              else throw("Strict value is not equal to itself.")
78 78                          }
79 79                      else throw("Strict value is not equal to itself.")
80 80                  }
81 81  
82 82              let array = [assetAmount, assetAmount]
83 83              let res = {
84 84                  let $l = array
85 85                  let $s = size($l)
86 86                  let $acc0 = 0
87 87                  func $f0_1 ($a,$i) =                 if (($i >= $s))
88 88                      then $a
89 89                      else repeatFunc($a, $l[$i])
90 90  
91 91                  func $f0_2 ($a,$i) =                 if (($i >= $s))
92 92                      then $a
93 93                      else throw("List size exceeds 2")
94 94  
95 95                  $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
96 96                  }
97 97  [IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (assetAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), ScriptTransfer(this, res, unit)]
98 98              }
99 99          else throw("Error!")
100 100      }
101 101  
102 102  
103 103  
104 104  @Callable(i)
105 105  func borrow (assetAmount) = {
106 106      let address = toString(i.caller)
107 107      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
108 108      if ((res == res))
109 109          then [ScriptTransfer(i.caller, assetAmount, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount)]
110 110          else throw("Strict value is not equal to itself.")
111 111      }
112 112  
113 113  
114 114  
115 115  @Callable(i)
116 116  func borrow2 (assetAmount) = {
117 117      let address = toString(i.caller)
118 118      func repeatFunc (accum,next) =     {
119 119          let result = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
120 120          if ((result == result))
121 121              then (accum + next)
122 122              else throw("Strict value is not equal to itself.")
123 123          }
124 124  
125 125      let array = [assetAmount, assetAmount]
126 126      let res = {
127 127          let $l = array
128 128          let $s = size($l)
129 129          let $acc0 = 0
130 130          func $f0_1 ($a,$i) =         if (($i >= $s))
131 131              then $a
132 132              else repeatFunc($a, $l[$i])
133 133  
134 134          func $f0_2 ($a,$i) =         if (($i >= $s))
135 135              then $a
136 136              else throw("List size exceeds 2")
137 137  
138 138          $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
139 139          }
140 140  [IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount), ScriptTransfer(i.caller, res, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
141 141      }
142 142  
143 143  
144 144  
145 145  @Callable(i)
146 146  func borrow5 (assetIdStr,assetAmount) = {
147 147      let address = toString(i.caller)
148 148      let res = {
149 149          let $l = arr
150 150          let $s = size($l)
151 151          let $acc0 = 0
152 152          func $f0_1 ($a,$i) =         if (($i >= $s))
153 153              then $a
154 154              else sum($a, $l[$i])
155 155  
156 156          func $f0_2 ($a,$i) =         if (($i >= $s))
157 157              then $a
158 158              else throw("List size exceeds 5")
159 159  
160 160          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
161 161          }
162 162      if ((res == res))
163 163          then [IntegerEntry(((address + "_borrowed_") + assetIdStr), assetAmount)]
164 164          else throw("Strict value is not equal to itself.")
165 165      }
166 166  
167 167  
168 168  
169 169  @Callable(i)
170 170  func deposit () = {
171 171      let address = toString(i.caller)
172 172      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, 1000000)])
173 173      if ((res == res))
174 174          then [IntegerEntry((address + "supply_waves"), 1000000)]
175 175          else throw("Strict value is not equal to itself.")
176 176      }
177 177  
178 178  
179 179  
180 180  @Callable(i)
181 181  func withdraw (assetIdStr,assetAmount) = {
182 182      let address = toString(i.caller)
183 183      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "withdraw", [assetIdStr, assetAmount], nil)
184 184      if ((res == res))
185 185          then [IntegerEntry(((address + "_withdrew_") + assetIdStr), assetAmount)]
186 186          else throw("Strict value is not equal to itself.")
187 187      }
188 188  
189 189  
190 190  
191 191  @Callable(i)
192 192  func checkBalance (assetIdStr) = {
193 193      let address = i.caller
194 194      if ((assetIdStr == "WAVES"))
195 195          then [IntegerEntry("Waves Balance", wavesBalance(address).available)]
196 196          else [IntegerEntry("Asset Balance", assetBalance(address, fromBase58String(assetIdStr)))]
197 197      }
198 198  
199 199  
200 200  @Verifier(tx)
201 201  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
202 202

Old	New		Differences
47	47
48	48
49	49		@Callable(i)
50		-	func long1x (~~assetAmount~~) = {
51		-	let res = invoke(this, "transferWavesTest2", ["WAVES", ~~assetAmount~~, toString(i.caller)], [AttachedPayment(unit, ~~assetAmount~~)])
	50	+	func long1x () = {
	51	+	let res = invoke(this, "transferWavesTest2", ["WAVES", 100000000, toString(i.caller)], [AttachedPayment(unit, 100000000)])
52	52		if ((res == res))
53	53		then nil
54	54		else throw("Strict value is not equal to itself.")

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let arr = [1, 2, 3, 4, 5]
5	5
6	6		let arr2 = [1, 2]
7	7
8	8		func sum (a,b) = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", 1000000], nil)
9	9
10	10
11	11		func getCurrentPrice (assetIdStr) = if ((assetIdStr == "WAVES"))
12	12		then 2
13	13		else throw("Error")
14	14
15	15
16	16		func getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
17	17		then wavesBalance(address).available
18	18		else assetBalance(address, fromBase58String(assetIdStr))
19	19
20	20
21	21		func transferWavesTestInternal (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
22	22
23	23
24	24		@Callable(i)
25	25		func transferWaves (assetAmount,senderAddress) = if ((i.caller != this))
26	26		then throw("only for internal smart contract invocations")
27	27		else [ScriptTransfer(this, assetAmount, unit), IntegerEntry((senderAddress + "_deposited_WAVES"), assetAmount)]
28	28
29	29
30	30
31	31		@Callable(i)
32	32		func transferWavesTest () = if (if ((size(i.payments) != 1))
33	33		then true
34	34		else (i.payments[0].amount == 0))
35	35		then throw("1 payment has to be attached")
36	36		else {
37	37		let assetIdStr = "WAVES"
38	38		let assetAmount = i.payments[0].amount
39	39		transferWavesTestInternal(assetIdStr, assetAmount, toString(i.caller))
40	40		}
41	41
42	42
43	43
44	44		@Callable(i)
45	45		func transferWavesTest2 (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
46	46
47	47
48	48
49	49		@Callable(i)
50		-	func long1x (~~assetAmount~~) = {
51		-	let res = invoke(this, "transferWavesTest2", ["WAVES", ~~assetAmount~~, toString(i.caller)], [AttachedPayment(unit, ~~assetAmount~~)])
	50	+	func long1x () = {
	51	+	let res = invoke(this, "transferWavesTest2", ["WAVES", 100000000, toString(i.caller)], [AttachedPayment(unit, 100000000)])
52	52		if ((res == res))
53	53		then nil
54	54		else throw("Strict value is not equal to itself.")
55	55		}
56	56
57	57
58	58
59	59		@Callable(i)
60	60		func long2x (assetAmount) = {
61	61		let address = toString(i.caller)
62	62		let currentAmount = getBalance("WAVES", i.caller)
63	63		if ((currentAmount > assetAmount))
64	64		then {
65	65		func repeatFunc (accum,next) = {
66	66		let transferResult = invoke(this, "transferWaves", [assetAmount, i.caller], nil)
67	67		if ((transferResult == transferResult))
68	68		then {
69	69		let supplyResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, assetAmount)])
70	70		if ((supplyResult == supplyResult))
71	71		then {
72	72		let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((assetAmount * getCurrentPrice("WAVES")) / 100)], nil)
73	73		if ((borrowResult == borrowResult))
74	74		then (accum + next)
75	75		else throw("Strict value is not equal to itself.")
76	76		}
77	77		else throw("Strict value is not equal to itself.")
78	78		}
79	79		else throw("Strict value is not equal to itself.")
80	80		}
81	81
82	82		let array = [assetAmount, assetAmount]
83	83		let res = {
84	84		let $l = array
85	85		let $s = size($l)
86	86		let $acc0 = 0
87	87		func $f0_1 ($a,$i) = if (($i >= $s))
88	88		then $a
89	89		else repeatFunc($a, $l[$i])
90	90
91	91		func $f0_2 ($a,$i) = if (($i >= $s))
92	92		then $a
93	93		else throw("List size exceeds 2")
94	94
95	95		$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
96	96		}
97	97		[IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (assetAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), ScriptTransfer(this, res, unit)]
98	98		}
99	99		else throw("Error!")
100	100		}
101	101
102	102
103	103
104	104		@Callable(i)
105	105		func borrow (assetAmount) = {
106	106		let address = toString(i.caller)
107	107		let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
108	108		if ((res == res))
109	109		then [ScriptTransfer(i.caller, assetAmount, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount)]
110	110		else throw("Strict value is not equal to itself.")
111	111		}
112	112
113	113
114	114
115	115		@Callable(i)
116	116		func borrow2 (assetAmount) = {
117	117		let address = toString(i.caller)
118	118		func repeatFunc (accum,next) = {
119	119		let result = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
120	120		if ((result == result))
121	121		then (accum + next)
122	122		else throw("Strict value is not equal to itself.")
123	123		}
124	124
125	125		let array = [assetAmount, assetAmount]
126	126		let res = {
127	127		let $l = array
128	128		let $s = size($l)
129	129		let $acc0 = 0
130	130		func $f0_1 ($a,$i) = if (($i >= $s))
131	131		then $a
132	132		else repeatFunc($a, $l[$i])
133	133
134	134		func $f0_2 ($a,$i) = if (($i >= $s))
135	135		then $a
136	136		else throw("List size exceeds 2")
137	137
138	138		$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
139	139		}
140	140		[IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount), ScriptTransfer(i.caller, res, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
141	141		}
142	142
143	143
144	144
145	145		@Callable(i)
146	146		func borrow5 (assetIdStr,assetAmount) = {
147	147		let address = toString(i.caller)
148	148		let res = {
149	149		let $l = arr
150	150		let $s = size($l)
151	151		let $acc0 = 0
152	152		func $f0_1 ($a,$i) = if (($i >= $s))
153	153		then $a
154	154		else sum($a, $l[$i])
155	155
156	156		func $f0_2 ($a,$i) = if (($i >= $s))
157	157		then $a
158	158		else throw("List size exceeds 5")
159	159
160	160		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
161	161		}
162	162		if ((res == res))
163	163		then [IntegerEntry(((address + "_borrowed_") + assetIdStr), assetAmount)]
164	164		else throw("Strict value is not equal to itself.")
165	165		}
166	166
167	167
168	168
169	169		@Callable(i)
170	170		func deposit () = {
171	171		let address = toString(i.caller)
172	172		let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, 1000000)])
173	173		if ((res == res))
174	174		then [IntegerEntry((address + "supply_waves"), 1000000)]
175	175		else throw("Strict value is not equal to itself.")
176	176		}
177	177
178	178
179	179
180	180		@Callable(i)
181	181		func withdraw (assetIdStr,assetAmount) = {
182	182		let address = toString(i.caller)
183	183		let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "withdraw", [assetIdStr, assetAmount], nil)
184	184		if ((res == res))
185	185		then [IntegerEntry(((address + "_withdrew_") + assetIdStr), assetAmount)]
186	186		else throw("Strict value is not equal to itself.")
187	187		}
188	188
189	189
190	190
191	191		@Callable(i)
192	192		func checkBalance (assetIdStr) = {
193	193		let address = i.caller
194	194		if ((assetIdStr == "WAVES"))
195	195		then [IntegerEntry("Waves Balance", wavesBalance(address).available)]
196	196		else [IntegerEntry("Asset Balance", assetBalance(address, fromBase58String(assetIdStr)))]
197	197		}
198	198
199	199
200	200		@Verifier(tx)
201	201		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
202	202

github/deemru/w8io/169f3d6 
45.51 ms ◑