tx · EfinvNgqFFbWF93T6Q2TXEhtUtLSjsy27fRV7nHG8TRV

3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq:  -0.01000000 Waves

2023.06.27 14:35 [2641016] smart account 3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "EfinvNgqFFbWF93T6Q2TXEhtUtLSjsy27fRV7nHG8TRV",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1687865680431,
    "version": 2,
    "chainId": 84,
    "sender": "3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq",
    "senderPublicKey": "ERewvWFUFQfR1eCnipNAv9n7SdQhof2ESP6PGVjTueLd",
    "proofs": [
        "5Sg5oXaf2EkC47tiPrZGppXZguDxC13dcurDGhBDctBhrh1qSUpNA9t1w8w2U12sqMDxZMQ2xj478MHSA3sZrA6y"
    ],
    "script": "base64:BgIuCAISBAoCAQgSABIAEgMKAQESAwoBARIDCgEBEgQKAggBEgASBAoCCAESAwoBCAYAA2FycgkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwABGFycjIJAMwIAgABCQDMCAIAAgUDbmlsAQNzdW0CAWEBYgkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIAwIQ9BQNuaWwFA25pbAEKZ2V0QmFsYW5jZQIKYXNzZXRJZFN0cgdhZGRyZXNzAwkAAAIFCmFzc2V0SWRTdHICBVdBVkVTCAkA7wcBBQdhZGRyZXNzCWF2YWlsYWJsZQkA8AcCBQdhZGRyZXNzCQDZBAEFCmFzc2V0SWRTdHIBD2dldEN1cnJlbnRQcmljZQEKYXNzZXRJZFN0cgMJAAACBQphc3NldElkU3RyAgVXQVZFUwACCQACAQIFRXJyb3IBGXRyYW5zZmVyV2F2ZXNUZXN0SW50ZXJuYWwDCmFzc2V0SWRTdHILYXNzZXRBbW91bnQHYWRkcmVzcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIFB2FkZHJlc3MCC19kZXBvc2l0ZWRfBQphc3NldElkU3RyBQthc3NldEFtb3VudAUDbmlsCgFpAQ10cmFuc2ZlcldhdmVzAgthc3NldEFtb3VudA1zZW5kZXJBZGRyZXNzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIsb25seSBmb3IgaW50ZXJuYWwgc21hcnQgY29udHJhY3QgaW52b2NhdGlvbnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUEdGhpcwULYXNzZXRBbW91bnQFBHVuaXQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUNc2VuZGVyQWRkcmVzcwIQX2RlcG9zaXRlZF9XQVZFUwULYXNzZXRBbW91bnQFA25pbAFpARF0cmFuc2ZlcldhdmVzVGVzdAADAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABBgkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50AAAJAAIBAhwxIHBheW1lbnQgaGFzIHRvIGJlIGF0dGFjaGVkBAphc3NldElkU3RyAgVXQVZFUwQLYXNzZXRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQEZdHJhbnNmZXJXYXZlc1Rlc3RJbnRlcm5hbAMFCmFzc2V0SWRTdHIFC2Fzc2V0QW1vdW50CQClCAEIBQFpBmNhbGxlcgFpAQlsb25nMnhfdjIAAwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQYJAAACCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAAACQACAQIcMSBwYXltZW50IGhhcyB0byBiZSBhdHRhY2hlZAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIECmFzc2V0SWRTdHICBVdBVkVTBAt3YXZlc0Ftb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEEmN1cnJlbnRXYXZlc0Ftb3VudAkBCmdldEJhbGFuY2UCBQphc3NldElkU3RyCAUBaQZjYWxsZXIDCQBmAgUSY3VycmVudFdhdmVzQW1vdW50BQt3YXZlc0Ftb3VudAQNZGVwb3NpdFJlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGc3VwcGx5BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQFC3dhdmVzQW1vdW50BQNuaWwDCQAAAgUNZGVwb3NpdFJlc3VsdAUNZGVwb3NpdFJlc3VsdAoBCnJlcGVhdEZ1bmMCBWFjY3VtBG5leHQEDGJvcnJvd1Jlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIJAGkCCQBoAgULd2F2ZXNBbW91bnQJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkBQNuaWwFA25pbAMJAAACBQxib3Jyb3dSZXN1bHQFDGJvcnJvd1Jlc3VsdAkAZAIFBWFjY3VtBQRuZXh0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAVhcnJheQkAzAgCBQt3YXZlc0Ftb3VudAkAzAgCBQt3YXZlc0Ftb3VudAUDbmlsBANyZXMKAAIkbAUFYXJyYXkKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnJlcGVhdEZ1bmMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFB2FkZHJlc3MCEF9kZXBvc2l0ZWRfV0FWRVMFC3dhdmVzQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAGgCBQt3YXZlc0Ftb3VudAkBD2dldEN1cnJlbnRQcmljZQECBVdBVkVTCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAaQIJAGgCBQNyZXMJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkASAP8hwSrOTEPJrsRhqrJaiw7LoHK0bMbYhy8LXikkkBtAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIRTm90IGVub3VnaCBXQVZFUyEBaQEGbG9uZzJ4AQthc3NldEFtb3VudAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEDWN1cnJlbnRBbW91bnQJAQpnZXRCYWxhbmNlAgIFV0FWRVMIBQFpBmNhbGxlcgMJAGYCBQ1jdXJyZW50QW1vdW50BQthc3NldEFtb3VudAoBCnJlcGVhdEZ1bmMCBWFjY3VtBG5leHQEDnRyYW5zZmVyUmVzdWx0CQD8BwQFBHRoaXMCDXRyYW5zZmVyV2F2ZXMJAMwIAgULYXNzZXRBbW91bnQJAMwIAggFAWkGY2FsbGVyBQNuaWwFA25pbAMJAAACBQ50cmFuc2ZlclJlc3VsdAUOdHJhbnNmZXJSZXN1bHQEDHN1cHBseVJlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGc3VwcGx5BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQFC2Fzc2V0QW1vdW50BQNuaWwDCQAAAgUMc3VwcGx5UmVzdWx0BQxzdXBwbHlSZXN1bHQEDGJvcnJvd1Jlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIJAGkCCQBoAgULYXNzZXRBbW91bnQJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkBQNuaWwFA25pbAMJAAACBQxib3Jyb3dSZXN1bHQFDGJvcnJvd1Jlc3VsdAkAZAIFBWFjY3VtBQRuZXh0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAVhcnJheQkAzAgCBQthc3NldEFtb3VudAkAzAgCBQthc3NldEFtb3VudAUDbmlsBANyZXMKAAIkbAUFYXJyYXkKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnJlcGVhdEZ1bmMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAGgCBQthc3NldEFtb3VudAkBD2dldEN1cnJlbnRQcmljZQECBVdBVkVTCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAaQIJAGgCBQNyZXMJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkASAP8hwSrOTEPJrsRhqrJaiw7LoHK0bMbYhy8LXikkkBtAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQR0aGlzBQNyZXMFBHVuaXQFA25pbAkAAgECBkVycm9yIQFpAQZib3Jyb3cBC2Fzc2V0QW1vdW50BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZib3Jyb3cJAMwIAgIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYXNzZXRBbW91bnQBIA/yHBKs5MQ8muxGGqslqLDsugcrRsxtiHLwteKSSQG0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQFC2Fzc2V0QW1vdW50BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHYm9ycm93MgELYXNzZXRBbW91bnQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyCgEKcmVwZWF0RnVuYwIFYWNjdW0EbmV4dAQGcmVzdWx0CQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZib3Jyb3cJAMwIAgIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFBnJlc3VsdAUGcmVzdWx0CQBkAgUFYWNjdW0FBG5leHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EBWFycmF5CQDMCAIFC2Fzc2V0QW1vdW50CQDMCAIFC2Fzc2V0QW1vdW50BQNuaWwEA3JlcwoAAiRsBQVhcnJheQoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKcmVwZWF0RnVuYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICBQdhZGRyZXNzAgpfYm9ycm93ZWRfAiwyNUZFcUVqUmtxSzZ5Q2tpVDdMejZTQVl6N2dVRkN0eGZDQ2huclZGRDVBVAULYXNzZXRBbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQNyZXMBIA/yHBKs5MQ8muxGGqslqLDsugcrRsxtiHLwteKSSQG0BQNuaWwBaQEHYm9ycm93NQIKYXNzZXRJZFN0cgthc3NldEFtb3VudAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEA3JlcwoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA3N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUDCQAAAgUDcmVzBQNyZXMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICBQdhZGRyZXNzAgpfYm9ycm93ZWRfBQphc3NldElkU3RyBQthc3NldEFtb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBB2RlcG9zaXQABAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZzdXBwbHkFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEdW5pdADAhD0FA25pbAMJAAACBQNyZXMFA3JlcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQdhZGRyZXNzAgxzdXBwbHlfd2F2ZXMAwIQ9BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEId2l0aGRyYXcCCmFzc2V0SWRTdHILYXNzZXRBbW91bnQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyBANyZXMJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM04zRG5WZmZuVXladHoyTVJiazVVN2dpTjExMldlbXBNTmQCCHdpdGhkcmF3CQDMCAIFCmFzc2V0SWRTdHIJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX3dpdGhkcmV3XwUKYXNzZXRJZFN0cgULYXNzZXRBbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQxjaGVja0JhbGFuY2UBCmFzc2V0SWRTdHIEB2FkZHJlc3MIBQFpBmNhbGxlcgMJAAACBQphc3NldElkU3RyAgVXQVZFUwkAzAgCCQEMSW50ZWdlckVudHJ5AgINV2F2ZXMgQmFsYW5jZQgJAO8HAQUHYWRkcmVzcwlhdmFpbGFibGUFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgINQXNzZXQgQmFsYW5jZQkA8AcCBQdhZGRyZXNzCQDZBAEFCmFzc2V0SWRTdHIFA25pbAECdHgBBnZlcmlmeQAJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXkK7gGM",
    "height": 2641016,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FyGRmirLtAHHbCKgmYnj2imEf4kLYUYJ1RwHZ2uw46v7
Next: 5xEAtskv8CDXfdxfEUuRqGqLb9f6Vxp9UzugZTn9uQcT

Diff: 

OldNewDifferences
88 func sum (a,b) = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", 1000000], nil)
99 
1010 
11+func getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
12+    then wavesBalance(address).available
13+    else assetBalance(address, fromBase58String(assetIdStr))
14+
15+
1116 func getCurrentPrice (assetIdStr) = if ((assetIdStr == "WAVES"))
1217     then 2
1318     else throw("Error")
14-
15-
16-func getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
17-    then wavesBalance(address).available
18-    else assetBalance(address, fromBase58String(assetIdStr))
1919 
2020 
2121 func transferWavesTestInternal (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
4242 
4343 
4444 @Callable(i)
45-func transferWavesTest2 (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
45+func long2x_v2 () = if (if ((size(i.payments) != 1))
46+    then true
47+    else (i.payments[0].amount == 0))
48+    then throw("1 payment has to be attached")
49+    else {
50+        let address = toString(i.caller)
51+        let assetIdStr = "WAVES"
52+        let wavesAmount = i.payments[0].amount
53+        let currentWavesAmount = getBalance(assetIdStr, i.caller)
54+        if ((currentWavesAmount > wavesAmount))
55+            then {
56+                let depositResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, wavesAmount)])
57+                if ((depositResult == depositResult))
58+                    then {
59+                        func repeatFunc (accum,next) =                         {
60+                            let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((wavesAmount * getCurrentPrice("WAVES")) / 100)], nil)
61+                            if ((borrowResult == borrowResult))
62+                                then (accum + next)
63+                                else throw("Strict value is not equal to itself.")
64+                            }
4665 
66+                        let array = [wavesAmount, wavesAmount]
67+                        let res = {
68+                            let $l = array
69+                            let $s = size($l)
70+                            let $acc0 = 0
71+                            func $f0_1 ($a,$i) =                             if (($i >= $s))
72+                                then $a
73+                                else repeatFunc($a, $l[$i])
4774 
75+                            func $f0_2 ($a,$i) =                             if (($i >= $s))
76+                                then $a
77+                                else throw("List size exceeds 2")
4878 
49-@Callable(i)
50-func long1x () = {
51-    let res = invoke(this, "transferWavesTest2", ["WAVES", 100000000, toString(i.caller)], [AttachedPayment(unit, 100000000)])
52-    if ((res == res))
53-        then nil
54-        else throw("Strict value is not equal to itself.")
55-    }
79+                            $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
80+                            }
81+[IntegerEntry((address + "_deposited_WAVES"), wavesAmount), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (wavesAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
82+                        }
83+                    else throw("Strict value is not equal to itself.")
84+                }
85+            else throw("Not enough WAVES!")
86+        }
5687 
5788 
5889 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let arr = [1, 2, 3, 4, 5]
55 
66 let arr2 = [1, 2]
77 
88 func sum (a,b) = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", 1000000], nil)
99 
1010 
11+func getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
12+    then wavesBalance(address).available
13+    else assetBalance(address, fromBase58String(assetIdStr))
14+
15+
1116 func getCurrentPrice (assetIdStr) = if ((assetIdStr == "WAVES"))
1217     then 2
1318     else throw("Error")
14-
15-
16-func getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
17-    then wavesBalance(address).available
18-    else assetBalance(address, fromBase58String(assetIdStr))
1919 
2020 
2121 func transferWavesTestInternal (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
2222 
2323 
2424 @Callable(i)
2525 func transferWaves (assetAmount,senderAddress) = if ((i.caller != this))
2626     then throw("only for internal smart contract invocations")
2727     else [ScriptTransfer(this, assetAmount, unit), IntegerEntry((senderAddress + "_deposited_WAVES"), assetAmount)]
2828 
2929 
3030 
3131 @Callable(i)
3232 func transferWavesTest () = if (if ((size(i.payments) != 1))
3333     then true
3434     else (i.payments[0].amount == 0))
3535     then throw("1 payment has to be attached")
3636     else {
3737         let assetIdStr = "WAVES"
3838         let assetAmount = i.payments[0].amount
3939         transferWavesTestInternal(assetIdStr, assetAmount, toString(i.caller))
4040         }
4141 
4242 
4343 
4444 @Callable(i)
45-func transferWavesTest2 (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
45+func long2x_v2 () = if (if ((size(i.payments) != 1))
46+    then true
47+    else (i.payments[0].amount == 0))
48+    then throw("1 payment has to be attached")
49+    else {
50+        let address = toString(i.caller)
51+        let assetIdStr = "WAVES"
52+        let wavesAmount = i.payments[0].amount
53+        let currentWavesAmount = getBalance(assetIdStr, i.caller)
54+        if ((currentWavesAmount > wavesAmount))
55+            then {
56+                let depositResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, wavesAmount)])
57+                if ((depositResult == depositResult))
58+                    then {
59+                        func repeatFunc (accum,next) =                         {
60+                            let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((wavesAmount * getCurrentPrice("WAVES")) / 100)], nil)
61+                            if ((borrowResult == borrowResult))
62+                                then (accum + next)
63+                                else throw("Strict value is not equal to itself.")
64+                            }
4665 
66+                        let array = [wavesAmount, wavesAmount]
67+                        let res = {
68+                            let $l = array
69+                            let $s = size($l)
70+                            let $acc0 = 0
71+                            func $f0_1 ($a,$i) =                             if (($i >= $s))
72+                                then $a
73+                                else repeatFunc($a, $l[$i])
4774 
75+                            func $f0_2 ($a,$i) =                             if (($i >= $s))
76+                                then $a
77+                                else throw("List size exceeds 2")
4878 
49-@Callable(i)
50-func long1x () = {
51-    let res = invoke(this, "transferWavesTest2", ["WAVES", 100000000, toString(i.caller)], [AttachedPayment(unit, 100000000)])
52-    if ((res == res))
53-        then nil
54-        else throw("Strict value is not equal to itself.")
55-    }
79+                            $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
80+                            }
81+[IntegerEntry((address + "_deposited_WAVES"), wavesAmount), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (wavesAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
82+                        }
83+                    else throw("Strict value is not equal to itself.")
84+                }
85+            else throw("Not enough WAVES!")
86+        }
5687 
5788 
5889 
5990 @Callable(i)
6091 func long2x (assetAmount) = {
6192     let address = toString(i.caller)
6293     let currentAmount = getBalance("WAVES", i.caller)
6394     if ((currentAmount > assetAmount))
6495         then {
6596             func repeatFunc (accum,next) =             {
6697                 let transferResult = invoke(this, "transferWaves", [assetAmount, i.caller], nil)
6798                 if ((transferResult == transferResult))
6899                     then {
69100                         let supplyResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, assetAmount)])
70101                         if ((supplyResult == supplyResult))
71102                             then {
72103                                 let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((assetAmount * getCurrentPrice("WAVES")) / 100)], nil)
73104                                 if ((borrowResult == borrowResult))
74105                                     then (accum + next)
75106                                     else throw("Strict value is not equal to itself.")
76107                                 }
77108                             else throw("Strict value is not equal to itself.")
78109                         }
79110                     else throw("Strict value is not equal to itself.")
80111                 }
81112 
82113             let array = [assetAmount, assetAmount]
83114             let res = {
84115                 let $l = array
85116                 let $s = size($l)
86117                 let $acc0 = 0
87118                 func $f0_1 ($a,$i) =                 if (($i >= $s))
88119                     then $a
89120                     else repeatFunc($a, $l[$i])
90121 
91122                 func $f0_2 ($a,$i) =                 if (($i >= $s))
92123                     then $a
93124                     else throw("List size exceeds 2")
94125 
95126                 $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
96127                 }
97128 [IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (assetAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), ScriptTransfer(this, res, unit)]
98129             }
99130         else throw("Error!")
100131     }
101132 
102133 
103134 
104135 @Callable(i)
105136 func borrow (assetAmount) = {
106137     let address = toString(i.caller)
107138     let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
108139     if ((res == res))
109140         then [ScriptTransfer(i.caller, assetAmount, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount)]
110141         else throw("Strict value is not equal to itself.")
111142     }
112143 
113144 
114145 
115146 @Callable(i)
116147 func borrow2 (assetAmount) = {
117148     let address = toString(i.caller)
118149     func repeatFunc (accum,next) =     {
119150         let result = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
120151         if ((result == result))
121152             then (accum + next)
122153             else throw("Strict value is not equal to itself.")
123154         }
124155 
125156     let array = [assetAmount, assetAmount]
126157     let res = {
127158         let $l = array
128159         let $s = size($l)
129160         let $acc0 = 0
130161         func $f0_1 ($a,$i) =         if (($i >= $s))
131162             then $a
132163             else repeatFunc($a, $l[$i])
133164 
134165         func $f0_2 ($a,$i) =         if (($i >= $s))
135166             then $a
136167             else throw("List size exceeds 2")
137168 
138169         $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
139170         }
140171 [IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount), ScriptTransfer(i.caller, res, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
141172     }
142173 
143174 
144175 
145176 @Callable(i)
146177 func borrow5 (assetIdStr,assetAmount) = {
147178     let address = toString(i.caller)
148179     let res = {
149180         let $l = arr
150181         let $s = size($l)
151182         let $acc0 = 0
152183         func $f0_1 ($a,$i) =         if (($i >= $s))
153184             then $a
154185             else sum($a, $l[$i])
155186 
156187         func $f0_2 ($a,$i) =         if (($i >= $s))
157188             then $a
158189             else throw("List size exceeds 5")
159190 
160191         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
161192         }
162193     if ((res == res))
163194         then [IntegerEntry(((address + "_borrowed_") + assetIdStr), assetAmount)]
164195         else throw("Strict value is not equal to itself.")
165196     }
166197 
167198 
168199 
169200 @Callable(i)
170201 func deposit () = {
171202     let address = toString(i.caller)
172203     let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, 1000000)])
173204     if ((res == res))
174205         then [IntegerEntry((address + "supply_waves"), 1000000)]
175206         else throw("Strict value is not equal to itself.")
176207     }
177208 
178209 
179210 
180211 @Callable(i)
181212 func withdraw (assetIdStr,assetAmount) = {
182213     let address = toString(i.caller)
183214     let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "withdraw", [assetIdStr, assetAmount], nil)
184215     if ((res == res))
185216         then [IntegerEntry(((address + "_withdrew_") + assetIdStr), assetAmount)]
186217         else throw("Strict value is not equal to itself.")
187218     }
188219 
189220 
190221 
191222 @Callable(i)
192223 func checkBalance (assetIdStr) = {
193224     let address = i.caller
194225     if ((assetIdStr == "WAVES"))
195226         then [IntegerEntry("Waves Balance", wavesBalance(address).available)]
196227         else [IntegerEntry("Asset Balance", assetBalance(address, fromBase58String(assetIdStr)))]
197228     }
198229 
199230 
200231 @Verifier(tx)
201232 func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
202233 
github/deemru/w8io/169f3d6 
36.42 ms ◑