tx · K5NMyKgt2XicGC6CQb6VTj1efXJdV7Cq1c9YDKgcVFd

3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7:  -0.01200000 Waves

2023.03.17 23:58 [2494506] smart account 3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "K5NMyKgt2XicGC6CQb6VTj1efXJdV7Cq1c9YDKgcVFd",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1679086803652,
    "version": 2,
    "chainId": 84,
    "sender": "3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7",
    "senderPublicKey": "CrHxACS7bWTh8cgmgqstvybmgMqR9KtDryGFt5svZhBW",
    "proofs": [
        "2VPZQSPxtisSjzbt7TU5D8bEwAEYfbtq2YcMP8TUikYf6PPpD4ibYYb7hWPn51vst6mrzftr3k5ZfYx8dWYUNxat"
    ],
    "script": "base64:BgIkCAISBwoFGBgBAQgSBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIFgAIa0pzb25SZXMCB2pzb25SZXMABXF1b3RlCQCwCQEBASIBCW1ha2VGaWVsZAEJbmV4dFZhbHVlAwcJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQVxdW90ZQgFCW5leHRWYWx1ZQJfMQUFcXVvdGUCAToIBQluZXh0VmFsdWUCXzICASwJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUFcXVvdGUIBQluZXh0VmFsdWUCXzEFBXF1b3RlAgE6BQVxdW90ZQgFCW5leHRWYWx1ZQJfMgUFcXVvdGUCASwBD3JlZHVjZXJNYWtlSlNPTgIFYWNjdW0JbmV4dFZhbHVlCQCsAgIFBWFjY3VtCQEJbWFrZUZpZWxkAQUJbmV4dFZhbHVlAQ9pdGVyYXRlTWFrZUpTT04DBnBhcmFtcwNyZXMGbGVuZ3RoAwkAAAIFBmxlbmd0aAAACQACAQINRW1wdHkgIHBhcmFtcwMJAAACBQZsZW5ndGgAAQoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMQkBBSRmMF8yAgkBBSRmMF8xAgUFJGFjYzAAAAABAwkAAAIFBmxlbmd0aAACCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA3JlcwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPcmVkdWNlck1ha2VKU09OAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAyCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgMJAAACBQZsZW5ndGgAAwoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMwkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwMJAAACBQZsZW5ndGgABAoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAwkAAAIFBmxlbmd0aAAFCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA3JlcwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPcmVkdWNlck1ha2VKU09OAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA1CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQMJAAACBQZsZW5ndGgABgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgMJAAACBQZsZW5ndGgABwoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNwkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAwkAAAIFBmxlbmd0aAAICgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA3JlcwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPcmVkdWNlck1ha2VKU09OAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA4CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAMJAAACBQZsZW5ndGgACQoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgOQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQMJAAACBQZsZW5ndGgACgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkAAgECJVRoZSBtYXggbnVtYmVyIG9mIHBhcmFtZXRlcnMgZXhjZWVkZWQBDmdldFBhcnRBbmRUYWlsAQNhcnIEA2VsMAkAkQMCBQNhcnIAAAQDZWwxCQCRAwIFA2FycgABBANlbDIJAJEDAgUDYXJyAAIEA2VsMwkAkQMCBQNhcnIAAwQDZWw0CQCRAwIFA2FycgAEBANlbDUJAJEDAgUDYXJyAAUEA2VsNgkAkQMCBQNhcnIABgQDZWw3CQCRAwIFA2FycgAHBANlbDgJAJEDAgUDYXJyAAgEA2VsOQkAkQMCBQNhcnIACQQEYXJyMAkA0QgCBQNhcnIAAAQEYXJyMQkA0QgCBQRhcnIwAAAEBGFycjIJANEIAgUEYXJyMQAABARhcnIzCQDRCAIFBGFycjIAAAQEYXJyNAkA0QgCBQRhcnIzAAAEBGFycjUJANEIAgUEYXJyNAAABARhcnI2CQDRCAIFBGFycjUAAAQEYXJyNwkA0QgCBQRhcnI2AAAEBGFycjgJANEIAgUEYXJyNwAABARhcnI5CQDRCAIFBGFycjgAAAkAlAoCCQDMCAIFA2VsMAkAzAgCBQNlbDEJAMwIAgUDZWwyCQDMCAIFA2VsMwkAzAgCBQNlbDQJAMwIAgUDZWw1CQDMCAIFA2VsNgkAzAgCBQNlbDcJAMwIAgUDZWw4CQDMCAIFA2VsOQUDbmlsBQRhcnI5AQxvbmx5SW50ZXJuYWwBBmNhbGxlcgMJAAACBQZjYWxsZXIFBHRoaXMFBHVuaXQJAAIBAhJPbmx5IGludGVybmFsIGNhbGwBCXByZXBhcmVfMQIDYXJyBGFycjIJAMwIAgkAlAoCCQCRAwIFA2FycgAACQCRAwIFBGFycjIAAAUDbmlsAQlwcmVwYXJlXzICA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQUDbmlsAQlwcmVwYXJlXzMCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACBQNuaWwBCXByZXBhcmVfNAIDYXJyBGFycjIJAMwIAgkAlAoCCQCRAwIFA2FycgAACQCRAwIFBGFycjIAAAkAzAgCCQCUCgIJAJEDAgUDYXJyAAEJAJEDAgUEYXJyMgABCQDMCAIJAJQKAgkAkQMCBQNhcnIAAgkAkQMCBQRhcnIyAAIJAMwIAgkAlAoCCQCRAwIFA2FycgADCQCRAwIFBGFycjIAAwUDbmlsAQlwcmVwYXJlXzUCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAUDbmlsAQlwcmVwYXJlXzYCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFBQNuaWwBCXByZXBhcmVfNwIDYXJyBGFycjIJAMwIAgkAlAoCCQCRAwIFA2FycgAACQCRAwIFBGFycjIAAAkAzAgCCQCUCgIJAJEDAgUDYXJyAAEJAJEDAgUEYXJyMgABCQDMCAIJAJQKAgkAkQMCBQNhcnIAAgkAkQMCBQRhcnIyAAIJAMwIAgkAlAoCCQCRAwIFA2FycgADCQCRAwIFBGFycjIAAwkAzAgCCQCUCgIJAJEDAgUDYXJyAAQJAJEDAgUEYXJyMgAECQDMCAIJAJQKAgkAkQMCBQNhcnIABQkAkQMCBQRhcnIyAAUJAMwIAgkAlAoCCQCRAwIFA2FycgAGCQCRAwIFBGFycjIABgUDbmlsAQlwcmVwYXJlXzgCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFCQDMCAIJAJQKAgkAkQMCBQNhcnIABgkAkQMCBQRhcnIyAAYJAMwIAgkAlAoCCQCRAwIFA2FycgAHCQCRAwIFBGFycjIABwUDbmlsAQlwcmVwYXJlXzkCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFCQDMCAIJAJQKAgkAkQMCBQNhcnIABgkAkQMCBQRhcnIyAAYJAMwIAgkAlAoCCQCRAwIFA2FycgAHCQCRAwIFBGFycjIABwkAzAgCCQCUCgIJAJEDAgUDYXJyAAgJAJEDAgUEYXJyMgAIBQNuaWwBCnByZXBhcmVfMTACA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFCQDMCAIJAJQKAgkAkQMCBQNhcnIABgkAkQMCBQRhcnIyAAYJAMwIAgkAlAoCCQCRAwIFA2FycgAHCQCRAwIFBGFycjIABwkAzAgCCQCUCgIJAJEDAgUDYXJyAAgJAJEDAgUEYXJyMgAICQDMCAIJAJQKAgkAkQMCBQNhcnIACQkAkQMCBQRhcnIyAAkFA25pbAENcHJlcGFyZVBhcmFtcwMSY3VycmVudEFyclBhcnRLZXlzFGN1cnJlbnRBcnJQYXJ0VmFsdWVzBmxlbmd0aAMJAAACBQZsZW5ndGgAAAkAAgECDUVtcHR5ICBwYXJhbXMDCQAAAgUGbGVuZ3RoAAEJAQlwcmVwYXJlXzECBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAACCQEJcHJlcGFyZV8yAgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgAAwkBCXByZXBhcmVfMwIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAQJAQlwcmVwYXJlXzQCBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAAFCQEJcHJlcGFyZV81AgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgABgkBCXByZXBhcmVfNgIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAcJAQlwcmVwYXJlXzcCBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAAICQEJcHJlcGFyZV84AgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgACQkBCXByZXBhcmVfOQIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAoJAQpwcmVwYXJlXzEwAgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwkAAgECIU1heCBudW1iZXIgb2YgcGFyYW1ldGVycyBleGNlZWRlZAEVZ2V0U3RhcnRBbmRFbmRJbmRleGVzAgRqc29uA2tleQQGa2V5TGVuCQCxAgEFA2tleQQKc3RhcnRJbmRleAkBBXZhbHVlAQkAswkCBQRqc29uBQNrZXkECGVuZEluZGV4CQELdmFsdWVPckVsc2UCCQC0CQMFBGpzb24CASwFCnN0YXJ0SW5kZXgJAQV2YWx1ZQEJALQJAwUEanNvbgIBfQUKc3RhcnRJbmRleAkAlQoDBQZrZXlMZW4FCnN0YXJ0SW5kZXgFCGVuZEluZGV4ARFyZWR1Y2VyVGFrZU9iamVjdAIFYWNjdW0EbmV4dAQLJHQwNjQ0MjY1MDIFBWFjY3VtBAZyZXN1bHQIBQskdDA2NDQyNjUwMgJfMQQJbGVmdENvdW50CAULJHQwNjQ0MjY1MDICXzIECnJpZ2h0Q291bnQIBQskdDA2NDQyNjUwMgJfMwQBaQgFCyR0MDY0NDI2NTAyAl80BAZpQ291bnQIBQskdDA2NDQyNjUwMgJfNQQDZW5kCAULJHQwNjQ0MjY1MDICXzYDAwkBASEBBQNlbmQGCQBmAgUGaUNvdW50BQFpBAskdDA2NTQwNzI5NQMJAQhjb250YWlucwIFBG5leHQCAXsEDl9uZXh0TGVmdENvdW50CQBlAgkAkAMBCQC1CQIFBG5leHQCAXsAAQkAlAoCBQ5fbmV4dExlZnRDb3VudAAAAwkBCGNvbnRhaW5zAgUEbmV4dAIBfQQOX25leHRMZWZ0Q291bnQJAGUCCQCQAwEJALUJAgUEbmV4dAIBfQABCQCUCgIFDl9uZXh0TGVmdENvdW50AAAJAJQKAgAAAAAEDW5leHRMZWZ0Q291bnQIBQskdDA2NTQwNzI5NQJfMQQObmV4dFJpZ2h0Q291bnQIBQskdDA2NTQwNzI5NQJfMgQPY3VyZW50TGVmdENvdW50CQBkAgUJbGVmdENvdW50BQ1uZXh0TGVmdENvdW50BBFjdXJyZW50UmlnaHRDb3VudAkAZAIFCnJpZ2h0Q291bnQFDm5leHRSaWdodENvdW50AwkAAAIFD2N1cmVudExlZnRDb3VudAURY3VycmVudFJpZ2h0Q291bnQJAJgKBgUGcmVzdWx0BQ9jdXJlbnRMZWZ0Q291bnQFEWN1cnJlbnRSaWdodENvdW50CQBkAgUBaQABBQZpQ291bnQGCQCYCgYJAKwCAgUGcmVzdWx0BQRuZXh0BQ9jdXJlbnRMZWZ0Q291bnQFEWN1cnJlbnRSaWdodENvdW50CQBkAgUBaQABBQZpQ291bnQHBQVhY2N1bQERcmVhZEJ5S2V5SW50ZXJuYWwCBGpzb24Da2V5BAskdDA3ODE3NzkzMwkBFWdldFN0YXJ0QW5kRW5kSW5kZXhlcwIFBGpzb24FA2tleQQGa2V5TGVuCAULJHQwNzgxNzc5MzMCXzEECnN0YXJ0SW5kZXgIBQskdDA3ODE3NzkzMwJfMgQIZW5kSW5kZXgIBQskdDA3ODE3NzkzMwJfMwkAsAICCQCvAgIFBGpzb24JAGUCBQhlbmRJbmRleAABCQBkAgkAZAIFCnN0YXJ0SW5kZXgFBmtleUxlbgADARNkZWxldGVCeUtleUludGVybmFsAgRqc29uA2tleQQLJHQwODIxNDgyODIJARVnZXRTdGFydEFuZEVuZEluZGV4ZXMCBQRqc29uBQNrZXkEBmtleUxlbggFCyR0MDgyMTQ4MjgyAl8xBApzdGFydEluZGV4CAULJHQwODIxNDgyODICXzIECGVuZEluZGV4CAULJHQwODIxNDgyODICXzMECHJvd1ZhbHVlCQCwAgIJAK8CAgUEanNvbgkAZQIFCGVuZEluZGV4AAEJAGQCCQBkAgUKc3RhcnRJbmRleAUGa2V5TGVuAAMECGpzb25Cb2R5CQCzAgIJALACAgUEanNvbgACAAIECGpzb25MaXN0CQC1CQIFCGpzb25Cb2R5AgEsBAhqc29uU2l6ZQkAkAMBBQhqc29uTGlzdAQMZGVsZXRlZFZhbHVlAwkBCGNvbnRhaW5zAgUIcm93VmFsdWUCAXsICgACJGwFCGpzb25MaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAmAoGAgAAAAAAAAAFCGpzb25TaXplBwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQERcmVkdWNlclRha2VPYmplY3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFUxpc3Qgc2l6ZSBleGNlZWRzIDEwMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIAMwA0ADUANgA3ADgAOQA6ADsAPAA9AD4APwBAAEEAQgBDAEQARQBGAEcASABJAEoASwBMAE0ATgBPAFAAUQBSAFMAVABVAFYAVwBYAFkAWgBbAFwAXQBeAF8AYABhAGIAYwBkAl8xBQhyb3dWYWx1ZQQHbmV3SnNvbgMJAAACCQBlAgkAsQIBBQRqc29uBQhlbmRJbmRleAABCQCsAgIJAK8CAgUEanNvbgkAZQIFCnN0YXJ0SW5kZXgAAgkAsAICBQRqc29uBQhlbmRJbmRleAkArAICCQCvAgIFBGpzb24JAGUCBQpzdGFydEluZGV4AAEJALACAgUEanNvbgkAZAIFCGVuZEluZGV4AAEJAJQKAgUMZGVsZXRlZFZhbHVlBQduZXdKc29uBQFpARBtYWtlSlNPTkludGVybmFsBQdhcnJLZXlzCWFyclZhbHVlcw9pdGVyYXRpb25zQ291bnQQbGFzdEl0ZXJhdGlvbkxlbgNyZXMJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIDCQBmAgUPaXRlcmF0aW9uc0NvdW50AAAECyR0MDk3Mzk5OTA0CQEOZ2V0UGFydEFuZFRhaWwBBQdhcnJLZXlzBBJjdXJyZW50QXJyUGFydEtleXMIBQskdDA5NzM5OTkwNAJfMQQLYXJyVGFpbEtleXMIBQskdDA5NzM5OTkwNAJfMgQMJHQwOTkxMzEwMDMxCQEOZ2V0UGFydEFuZFRhaWwBBQlhcnJWYWx1ZXMEFGN1cnJlbnRBcnJQYXJ0VmFsdWVzCAUMJHQwOTkxMzEwMDMxAl8xBA1hcnJUYWlsVmFsdWVzCAUMJHQwOTkxMzEwMDMxAl8yBAZwYXJhbXMJAQ1wcmVwYXJlUGFyYW1zAwUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwAKBAluZXdTdHJpbmcJAQ9pdGVyYXRlTWFrZUpTT04DBQZwYXJhbXMFA3JlcwAKBAZyZXN1bHQJAPwHBAUEdGhpcwIQbWFrZUpTT05JbnRlcm5hbAkAzAgCBQthcnJUYWlsS2V5cwkAzAgCBQ1hcnJUYWlsVmFsdWVzCQDMCAIJAGUCBQ9pdGVyYXRpb25zQ291bnQAAQkAzAgCBRBsYXN0SXRlcmF0aW9uTGVuCQDMCAIFCW5ld1N0cmluZwUDbmlsBQNuaWwDCQAAAgUGcmVzdWx0BQZyZXN1bHQJAJQKAgUDbmlsBQZyZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4DCQECIT0CBRBsYXN0SXRlcmF0aW9uTGVuAAAEBnBhcmFtcwkBDXByZXBhcmVQYXJhbXMDBQdhcnJLZXlzBQlhcnJWYWx1ZXMFEGxhc3RJdGVyYXRpb25MZW4ECW5ld1N0cmluZwkBD2l0ZXJhdGVNYWtlSlNPTgMFBnBhcmFtcwUDcmVzBRBsYXN0SXRlcmF0aW9uTGVuCQCUCgIFA25pbAkArAICCQCsAgICAXsJALMCAgUJbmV3U3RyaW5nAAECAX0JAJQKAgUDbmlsCQCsAgIJAKwCAgIBewkAswICBQNyZXMAAQIBfQFpAQhtYWtlSlNPTgIHYXJyS2V5cwlhcnJWYWx1ZXMDCQECIT0CCQCQAwEFB2FycktleXMJAJADAQUJYXJyVmFsdWVzCQACAQIuQXJyYXlLZXlzIGFuZCBBcnJheVZhbHVlcyBsZW5ndGggbXVzdCBiZSBlcXVhbAQDbGVuCQCQAwEFB2FycktleXMED2l0ZXJhdGlvbnNDb3VudAkAawMAAQUDbGVuAAoEEGxhc3RJdGVyYXRpb25MZW4JAGoCBQNsZW4ACgQDcmVzCQD8BwQFBHRoaXMCEG1ha2VKU09OSW50ZXJuYWwJAMwIAgUHYXJyS2V5cwkAzAgCBQlhcnJWYWx1ZXMJAMwIAgUPaXRlcmF0aW9uc0NvdW50CQDMCAIFEGxhc3RJdGVyYXRpb25MZW4JAMwIAgIABQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQlhZGRUb0pTT04DBGpzb24HYXJyS2V5cwlhcnJWYWx1ZXMDCQECIT0CCQCQAwEFB2FycktleXMJAJADAQUJYXJyVmFsdWVzCQACAQIuQXJyYXlLZXlzIGFuZCBBcnJheVZhbHVlcyBsZW5ndGggbXVzdCBiZSBlcXVhbAQDbGVuCQCQAwEFB2FycktleXMED2l0ZXJhdGlvbnNDb3VudAkAawMAAQUDbGVuAAoEEGxhc3RJdGVyYXRpb25MZW4JAGoCBQNsZW4ACgQDcmVzCQD8BwQFBHRoaXMCEG1ha2VKU09OSW50ZXJuYWwJAMwIAgUHYXJyS2V5cwkAzAgCBQlhcnJWYWx1ZXMJAMwIAgUPaXRlcmF0aW9uc0NvdW50CQDMCAIFEGxhc3RJdGVyYXRpb25MZW4JAMwIAgkArAICCQCwAgIJALMCAgUEanNvbgABAAECASwFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQCUCgIFA25pbAUDcmVzCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDXJlYWRCeUpTT05LZXkCBGpzb24Da2V5BAp2YWx1ZUJ5S2V5CQERcmVhZEJ5S2V5SW50ZXJuYWwCBQRqc29uBQNrZXkJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCAgp2YWx1ZUJ5S2V5BQp2YWx1ZUJ5S2V5BQNuaWwFCnZhbHVlQnlLZXkBaQEPZGVsZXRlQnlKU09OS2V5AgRqc29uA2tleQQNJHQwMTQ0NDcxNDgwNgkBE2RlbGV0ZUJ5S2V5SW50ZXJuYWwCBQRqc29uBQNrZXkEEWRlbGV0ZWRWYWx1ZUJ5S2V5CAUNJHQwMTQ0NDcxNDgwNgJfMQQHbmV3SnNvbggFDSR0MDE0NDQ3MTQ4MDYCXzIJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCAgxkZWxldGVkVmFsdWUFEWRlbGV0ZWRWYWx1ZUJ5S2V5CQDMCAIJAQtTdHJpbmdFbnRyeQIFCGtKc29uUmVzBQduZXdKc29uBQNuaWwJAJQKAgURZGVsZXRlZFZhbHVlQnlLZXkFB25ld0pzb24Ar5+hPw==",
    "height": 2494506,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5fjLaH9NAkTXjqqsympqtTs873QR3kuMotzfkWyJ2QZn
Next: AiuEcy9g7jmAkZRWxaBSRxuJCsAAR1pLP83Tixi69uyz

Diff: 
Old
New
Differences
262
262
 
263
263
 
264
264
 
func reducerTakeObject (accum,next) = {
265
-
    let $t064326481 = accum
266
-
    let result = $t064326481._1
267
-
    let leftCount = $t064326481._2
268
-
    let rightCount = $t064326481._3
269
-
    let end = $t064326481._4
270
-
    if (!(end))
265
+
    let $t064426502 = accum
266
+
    let result = $t064426502._1
267
+
    let leftCount = $t064426502._2
268
+
    let rightCount = $t064426502._3
269
+
    let i = $t064426502._4
270
+
    let iCount = $t064426502._5
271
+
    let end = $t064426502._6
272
+
    if (if (!(end))
273
+
        then true
274
+
        else (iCount > i))
271
275
 
        then {
272
-
            let $t065057260 = if (contains(next, "{"))
276
+
            let $t065407295 = if (contains(next, "{"))
273
277
 
                then {
274
278
 
                    let _nextLeftCount = (size(split(next, "{")) - 1)
275
279
 
                    $Tuple2(_nextLeftCount, 0)
280
284
 
                        $Tuple2(_nextLeftCount, 0)
281
285
 
                        }
282
286
 
                    else $Tuple2(0, 0)
283
-
            let nextLeftCount = $t065057260._1
284
-
            let nextRightCount = $t065057260._2
287
+
            let nextLeftCount = $t065407295._1
288
+
            let nextRightCount = $t065407295._2
285
289
 
            let curentLeftCount = (leftCount + nextLeftCount)
286
290
 
            let currentRightCount = (rightCount + nextRightCount)
287
291
 
            if ((curentLeftCount == currentRightCount))
288
-
                then $Tuple4(result, curentLeftCount, currentRightCount, true)
289
-
                else $Tuple4((result + next), curentLeftCount, currentRightCount, false)
292
+
                then $Tuple6(result, curentLeftCount, currentRightCount, (i + 1), iCount, true)
293
+
                else $Tuple6((result + next), curentLeftCount, currentRightCount, (i + 1), iCount, false)
290
294
 
            }
291
295
 
        else accum
292
296
 
    }
293
297
 
294
298
 
295
299
 
func readByKeyInternal (json,key) = {
296
-
    let $t077567872 = getStartAndEndIndexes(json, key)
297
-
    let keyLen = $t077567872._1
298
-
    let startIndex = $t077567872._2
299
-
    let endIndex = $t077567872._3
300
+
    let $t078177933 = getStartAndEndIndexes(json, key)
301
+
    let keyLen = $t078177933._1
302
+
    let startIndex = $t078177933._2
303
+
    let endIndex = $t078177933._3
300
304
 
    drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
301
305
 
    }
302
306
 
303
307
 
304
308
 
func deleteByKeyInternal (json,key) = {
305
-
    let $t081538221 = getStartAndEndIndexes(json, key)
306
-
    let keyLen = $t081538221._1
307
-
    let startIndex = $t081538221._2
308
-
    let endIndex = $t081538221._3
309
+
    let $t082148282 = getStartAndEndIndexes(json, key)
310
+
    let keyLen = $t082148282._1
311
+
    let startIndex = $t082148282._2
312
+
    let endIndex = $t082148282._3
309
313
 
    let rowValue = drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
310
314
 
    let jsonBody = dropRight(drop(json, 2), 2)
311
315
 
    let jsonList = split(jsonBody, ",")
316
+
    let jsonSize = size(jsonList)
312
317
 
    let deletedValue = if (contains(rowValue, "{"))
313
318
 
        then (        let $l = jsonList
314
319
 
        let $s = size($l)
315
-
        let $acc0 = $Tuple4("", 0, 0, false)
320
+
        let $acc0 = $Tuple6("", 0, 0, 0, jsonSize, false)
316
321
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
317
322
 
            then $a
318
323
 
            else reducerTakeObject($a, $l[$i])
333
338
 
@Callable(i)
334
339
 
func makeJSONInternal (arrKeys,arrValues,iterationsCount,lastIterationLen,res) = valueOrElse(onlyInternal(i.caller), if ((iterationsCount > 0))
335
340
 
    then {
336
-
        let $t096299794 = getPartAndTail(arrKeys)
337
-
        let currentArrPartKeys = $t096299794._1
338
-
        let arrTailKeys = $t096299794._2
339
-
        let $t098039921 = getPartAndTail(arrValues)
340
-
        let currentArrPartValues = $t098039921._1
341
-
        let arrTailValues = $t098039921._2
341
+
        let $t097399904 = getPartAndTail(arrKeys)
342
+
        let currentArrPartKeys = $t097399904._1
343
+
        let arrTailKeys = $t097399904._2
344
+
        let $t0991310031 = getPartAndTail(arrValues)
345
+
        let currentArrPartValues = $t0991310031._1
346
+
        let arrTailValues = $t0991310031._2
342
347
 
        let params = prepareParams(currentArrPartKeys, currentArrPartValues, 10)
343
348
 
        let newString = iterateMakeJSON(params, res, 10)
344
349
 
        let result = invoke(this, "makeJSONInternal", [arrTailKeys, arrTailValues, (iterationsCount - 1), lastIterationLen, newString], nil)
396
401
 
397
402
 
@Callable(i)
398
403
 
func deleteByJSONKey (json,key) = {
399
-
    let $t01433714696 = deleteByKeyInternal(json, key)
400
-
    let deletedValueByKey = $t01433714696._1
401
-
    let newJson = $t01433714696._2
404
+
    let $t01444714806 = deleteByKeyInternal(json, key)
405
+
    let deletedValueByKey = $t01444714806._1
406
+
    let newJson = $t01444714806._2
402
407
 
    $Tuple2([StringEntry("deletedValue", deletedValueByKey), StringEntry(kJsonRes, newJson)], $Tuple2(deletedValueByKey, newJson))
403
408
 
    }
404
409
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let kJsonRes = "jsonRes"
5
5
 
6
6
 
let quote = toUtf8String(base58'b')
7
7
 
8
8
 
func makeField (nextValue) = if (false)
9
9
 
    then (((((quote + nextValue._1) + quote) + ":") + nextValue._2) + ",")
10
10
 
    else (((((((quote + nextValue._1) + quote) + ":") + quote) + nextValue._2) + quote) + ",")
11
11
 
12
12
 
13
13
 
func reducerMakeJSON (accum,nextValue) = (accum + makeField(nextValue))
14
14
 
15
15
 
16
16
 
func iterateMakeJSON (params,res,length) = if ((length == 0))
17
17
 
    then throw("Empty  params")
18
18
 
    else if ((length == 1))
19
19
 
        then {
20
20
 
            let $l = params
21
21
 
            let $s = size($l)
22
22
 
            let $acc0 = res
23
23
 
            func $f0_1 ($a,$i) =             if (($i >= $s))
24
24
 
                then $a
25
25
 
                else reducerMakeJSON($a, $l[$i])
26
26
 
27
27
 
            func $f0_2 ($a,$i) =             if (($i >= $s))
28
28
 
                then $a
29
29
 
                else throw("List size exceeds 1")
30
30
 
31
31
 
            $f0_2($f0_1($acc0, 0), 1)
32
32
 
            }
33
33
 
        else if ((length == 2))
34
34
 
            then {
35
35
 
                let $l = params
36
36
 
                let $s = size($l)
37
37
 
                let $acc0 = res
38
38
 
                func $f0_1 ($a,$i) =                 if (($i >= $s))
39
39
 
                    then $a
40
40
 
                    else reducerMakeJSON($a, $l[$i])
41
41
 
42
42
 
                func $f0_2 ($a,$i) =                 if (($i >= $s))
43
43
 
                    then $a
44
44
 
                    else throw("List size exceeds 2")
45
45
 
46
46
 
                $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
47
47
 
                }
48
48
 
            else if ((length == 3))
49
49
 
                then {
50
50
 
                    let $l = params
51
51
 
                    let $s = size($l)
52
52
 
                    let $acc0 = res
53
53
 
                    func $f0_1 ($a,$i) =                     if (($i >= $s))
54
54
 
                        then $a
55
55
 
                        else reducerMakeJSON($a, $l[$i])
56
56
 
57
57
 
                    func $f0_2 ($a,$i) =                     if (($i >= $s))
58
58
 
                        then $a
59
59
 
                        else throw("List size exceeds 3")
60
60
 
61
61
 
                    $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
62
62
 
                    }
63
63
 
                else if ((length == 4))
64
64
 
                    then {
65
65
 
                        let $l = params
66
66
 
                        let $s = size($l)
67
67
 
                        let $acc0 = res
68
68
 
                        func $f0_1 ($a,$i) =                         if (($i >= $s))
69
69
 
                            then $a
70
70
 
                            else reducerMakeJSON($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 4")
75
75
 
76
76
 
                        $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
77
77
 
                        }
78
78
 
                    else if ((length == 5))
79
79
 
                        then {
80
80
 
                            let $l = params
81
81
 
                            let $s = size($l)
82
82
 
                            let $acc0 = res
83
83
 
                            func $f0_1 ($a,$i) =                             if (($i >= $s))
84
84
 
                                then $a
85
85
 
                                else reducerMakeJSON($a, $l[$i])
86
86
 
87
87
 
                            func $f0_2 ($a,$i) =                             if (($i >= $s))
88
88
 
                                then $a
89
89
 
                                else throw("List size exceeds 5")
90
90
 
91
91
 
                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
92
92
 
                            }
93
93
 
                        else if ((length == 6))
94
94
 
                            then {
95
95
 
                                let $l = params
96
96
 
                                let $s = size($l)
97
97
 
                                let $acc0 = res
98
98
 
                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
99
99
 
                                    then $a
100
100
 
                                    else reducerMakeJSON($a, $l[$i])
101
101
 
102
102
 
                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
103
103
 
                                    then $a
104
104
 
                                    else throw("List size exceeds 6")
105
105
 
106
106
 
                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
107
107
 
                                }
108
108
 
                            else if ((length == 7))
109
109
 
                                then {
110
110
 
                                    let $l = params
111
111
 
                                    let $s = size($l)
112
112
 
                                    let $acc0 = res
113
113
 
                                    func $f0_1 ($a,$i) =                                     if (($i >= $s))
114
114
 
                                        then $a
115
115
 
                                        else reducerMakeJSON($a, $l[$i])
116
116
 
117
117
 
                                    func $f0_2 ($a,$i) =                                     if (($i >= $s))
118
118
 
                                        then $a
119
119
 
                                        else throw("List size exceeds 7")
120
120
 
121
121
 
                                    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
122
122
 
                                    }
123
123
 
                                else if ((length == 8))
124
124
 
                                    then {
125
125
 
                                        let $l = params
126
126
 
                                        let $s = size($l)
127
127
 
                                        let $acc0 = res
128
128
 
                                        func $f0_1 ($a,$i) =                                         if (($i >= $s))
129
129
 
                                            then $a
130
130
 
                                            else reducerMakeJSON($a, $l[$i])
131
131
 
132
132
 
                                        func $f0_2 ($a,$i) =                                         if (($i >= $s))
133
133
 
                                            then $a
134
134
 
                                            else throw("List size exceeds 8")
135
135
 
136
136
 
                                        $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)
137
137
 
                                        }
138
138
 
                                    else if ((length == 9))
139
139
 
                                        then {
140
140
 
                                            let $l = params
141
141
 
                                            let $s = size($l)
142
142
 
                                            let $acc0 = res
143
143
 
                                            func $f0_1 ($a,$i) =                                             if (($i >= $s))
144
144
 
                                                then $a
145
145
 
                                                else reducerMakeJSON($a, $l[$i])
146
146
 
147
147
 
                                            func $f0_2 ($a,$i) =                                             if (($i >= $s))
148
148
 
                                                then $a
149
149
 
                                                else throw("List size exceeds 9")
150
150
 
151
151
 
                                            $f0_2($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)
152
152
 
                                            }
153
153
 
                                        else if ((length == 10))
154
154
 
                                            then {
155
155
 
                                                let $l = params
156
156
 
                                                let $s = size($l)
157
157
 
                                                let $acc0 = res
158
158
 
                                                func $f0_1 ($a,$i) =                                                 if (($i >= $s))
159
159
 
                                                    then $a
160
160
 
                                                    else reducerMakeJSON($a, $l[$i])
161
161
 
162
162
 
                                                func $f0_2 ($a,$i) =                                                 if (($i >= $s))
163
163
 
                                                    then $a
164
164
 
                                                    else throw("List size exceeds 10")
165
165
 
166
166
 
                                                $f0_2($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)
167
167
 
                                                }
168
168
 
                                            else throw("The max number of parameters exceeded")
169
169
 
170
170
 
171
171
 
func getPartAndTail (arr) = {
172
172
 
    let el0 = arr[0]
173
173
 
    let el1 = arr[1]
174
174
 
    let el2 = arr[2]
175
175
 
    let el3 = arr[3]
176
176
 
    let el4 = arr[4]
177
177
 
    let el5 = arr[5]
178
178
 
    let el6 = arr[6]
179
179
 
    let el7 = arr[7]
180
180
 
    let el8 = arr[8]
181
181
 
    let el9 = arr[9]
182
182
 
    let arr0 = removeByIndex(arr, 0)
183
183
 
    let arr1 = removeByIndex(arr0, 0)
184
184
 
    let arr2 = removeByIndex(arr1, 0)
185
185
 
    let arr3 = removeByIndex(arr2, 0)
186
186
 
    let arr4 = removeByIndex(arr3, 0)
187
187
 
    let arr5 = removeByIndex(arr4, 0)
188
188
 
    let arr6 = removeByIndex(arr5, 0)
189
189
 
    let arr7 = removeByIndex(arr6, 0)
190
190
 
    let arr8 = removeByIndex(arr7, 0)
191
191
 
    let arr9 = removeByIndex(arr8, 0)
192
192
 
    $Tuple2([el0, el1, el2, el3, el4, el5, el6, el7, el8, el9], arr9)
193
193
 
    }
194
194
 
195
195
 
196
196
 
func onlyInternal (caller) = if ((caller == this))
197
197
 
    then unit
198
198
 
    else throw("Only internal call")
199
199
 
200
200
 
201
201
 
func prepare_1 (arr,arr2) = [$Tuple2(arr[0], arr2[0])]
202
202
 
203
203
 
204
204
 
func prepare_2 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1])]
205
205
 
206
206
 
207
207
 
func prepare_3 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2])]
208
208
 
209
209
 
210
210
 
func prepare_4 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3])]
211
211
 
212
212
 
213
213
 
func prepare_5 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4])]
214
214
 
215
215
 
216
216
 
func prepare_6 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5])]
217
217
 
218
218
 
219
219
 
func prepare_7 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6])]
220
220
 
221
221
 
222
222
 
func prepare_8 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7])]
223
223
 
224
224
 
225
225
 
func prepare_9 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7]), $Tuple2(arr[8], arr2[8])]
226
226
 
227
227
 
228
228
 
func prepare_10 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7]), $Tuple2(arr[8], arr2[8]), $Tuple2(arr[9], arr2[9])]
229
229
 
230
230
 
231
231
 
func prepareParams (currentArrPartKeys,currentArrPartValues,length) = if ((length == 0))
232
232
 
    then throw("Empty  params")
233
233
 
    else if ((length == 1))
234
234
 
        then prepare_1(currentArrPartKeys, currentArrPartValues)
235
235
 
        else if ((length == 2))
236
236
 
            then prepare_2(currentArrPartKeys, currentArrPartValues)
237
237
 
            else if ((length == 3))
238
238
 
                then prepare_3(currentArrPartKeys, currentArrPartValues)
239
239
 
                else if ((length == 4))
240
240
 
                    then prepare_4(currentArrPartKeys, currentArrPartValues)
241
241
 
                    else if ((length == 5))
242
242
 
                        then prepare_5(currentArrPartKeys, currentArrPartValues)
243
243
 
                        else if ((length == 6))
244
244
 
                            then prepare_6(currentArrPartKeys, currentArrPartValues)
245
245
 
                            else if ((length == 7))
246
246
 
                                then prepare_7(currentArrPartKeys, currentArrPartValues)
247
247
 
                                else if ((length == 8))
248
248
 
                                    then prepare_8(currentArrPartKeys, currentArrPartValues)
249
249
 
                                    else if ((length == 9))
250
250
 
                                        then prepare_9(currentArrPartKeys, currentArrPartValues)
251
251
 
                                        else if ((length == 10))
252
252
 
                                            then prepare_10(currentArrPartKeys, currentArrPartValues)
253
253
 
                                            else throw("Max number of parameters exceeded")
254
254
 
255
255
 
256
256
 
func getStartAndEndIndexes (json,key) = {
257
257
 
    let keyLen = size(key)
258
258
 
    let startIndex = value(indexOf(json, key))
259
259
 
    let endIndex = valueOrElse(indexOf(json, ",", startIndex), value(indexOf(json, "}", startIndex)))
260
260
 
    $Tuple3(keyLen, startIndex, endIndex)
261
261
 
    }
262
262
 
263
263
 
264
264
 
func reducerTakeObject (accum,next) = {
265
-
    let $t064326481 = accum
266
-
    let result = $t064326481._1
267
-
    let leftCount = $t064326481._2
268
-
    let rightCount = $t064326481._3
269
-
    let end = $t064326481._4
270
-
    if (!(end))
265
+
    let $t064426502 = accum
266
+
    let result = $t064426502._1
267
+
    let leftCount = $t064426502._2
268
+
    let rightCount = $t064426502._3
269
+
    let i = $t064426502._4
270
+
    let iCount = $t064426502._5
271
+
    let end = $t064426502._6
272
+
    if (if (!(end))
273
+
        then true
274
+
        else (iCount > i))
271
275
 
        then {
272
-
            let $t065057260 = if (contains(next, "{"))
276
+
            let $t065407295 = if (contains(next, "{"))
273
277
 
                then {
274
278
 
                    let _nextLeftCount = (size(split(next, "{")) - 1)
275
279
 
                    $Tuple2(_nextLeftCount, 0)
276
280
 
                    }
277
281
 
                else if (contains(next, "}"))
278
282
 
                    then {
279
283
 
                        let _nextLeftCount = (size(split(next, "}")) - 1)
280
284
 
                        $Tuple2(_nextLeftCount, 0)
281
285
 
                        }
282
286
 
                    else $Tuple2(0, 0)
283
-
            let nextLeftCount = $t065057260._1
284
-
            let nextRightCount = $t065057260._2
287
+
            let nextLeftCount = $t065407295._1
288
+
            let nextRightCount = $t065407295._2
285
289
 
            let curentLeftCount = (leftCount + nextLeftCount)
286
290
 
            let currentRightCount = (rightCount + nextRightCount)
287
291
 
            if ((curentLeftCount == currentRightCount))
288
-
                then $Tuple4(result, curentLeftCount, currentRightCount, true)
289
-
                else $Tuple4((result + next), curentLeftCount, currentRightCount, false)
292
+
                then $Tuple6(result, curentLeftCount, currentRightCount, (i + 1), iCount, true)
293
+
                else $Tuple6((result + next), curentLeftCount, currentRightCount, (i + 1), iCount, false)
290
294
 
            }
291
295
 
        else accum
292
296
 
    }
293
297
 
294
298
 
295
299
 
func readByKeyInternal (json,key) = {
296
-
    let $t077567872 = getStartAndEndIndexes(json, key)
297
-
    let keyLen = $t077567872._1
298
-
    let startIndex = $t077567872._2
299
-
    let endIndex = $t077567872._3
300
+
    let $t078177933 = getStartAndEndIndexes(json, key)
301
+
    let keyLen = $t078177933._1
302
+
    let startIndex = $t078177933._2
303
+
    let endIndex = $t078177933._3
300
304
 
    drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
301
305
 
    }
302
306
 
303
307
 
304
308
 
func deleteByKeyInternal (json,key) = {
305
-
    let $t081538221 = getStartAndEndIndexes(json, key)
306
-
    let keyLen = $t081538221._1
307
-
    let startIndex = $t081538221._2
308
-
    let endIndex = $t081538221._3
309
+
    let $t082148282 = getStartAndEndIndexes(json, key)
310
+
    let keyLen = $t082148282._1
311
+
    let startIndex = $t082148282._2
312
+
    let endIndex = $t082148282._3
309
313
 
    let rowValue = drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
310
314
 
    let jsonBody = dropRight(drop(json, 2), 2)
311
315
 
    let jsonList = split(jsonBody, ",")
316
+
    let jsonSize = size(jsonList)
312
317
 
    let deletedValue = if (contains(rowValue, "{"))
313
318
 
        then (        let $l = jsonList
314
319
 
        let $s = size($l)
315
-
        let $acc0 = $Tuple4("", 0, 0, false)
320
+
        let $acc0 = $Tuple6("", 0, 0, 0, jsonSize, false)
316
321
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
317
322
 
            then $a
318
323
 
            else reducerTakeObject($a, $l[$i])
319
324
 
320
325
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
321
326
 
            then $a
322
327
 
            else throw("List size exceeds 100")
323
328
 
324
329
 
        $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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
325
330
 
        else rowValue
326
331
 
    let newJson = if (((size(json) - endIndex) == 1))
327
332
 
        then (take(json, (startIndex - 2)) + drop(json, endIndex))
328
333
 
        else (take(json, (startIndex - 1)) + drop(json, (endIndex + 1)))
329
334
 
    $Tuple2(deletedValue, newJson)
330
335
 
    }
331
336
 
332
337
 
333
338
 
@Callable(i)
334
339
 
func makeJSONInternal (arrKeys,arrValues,iterationsCount,lastIterationLen,res) = valueOrElse(onlyInternal(i.caller), if ((iterationsCount > 0))
335
340
 
    then {
336
-
        let $t096299794 = getPartAndTail(arrKeys)
337
-
        let currentArrPartKeys = $t096299794._1
338
-
        let arrTailKeys = $t096299794._2
339
-
        let $t098039921 = getPartAndTail(arrValues)
340
-
        let currentArrPartValues = $t098039921._1
341
-
        let arrTailValues = $t098039921._2
341
+
        let $t097399904 = getPartAndTail(arrKeys)
342
+
        let currentArrPartKeys = $t097399904._1
343
+
        let arrTailKeys = $t097399904._2
344
+
        let $t0991310031 = getPartAndTail(arrValues)
345
+
        let currentArrPartValues = $t0991310031._1
346
+
        let arrTailValues = $t0991310031._2
342
347
 
        let params = prepareParams(currentArrPartKeys, currentArrPartValues, 10)
343
348
 
        let newString = iterateMakeJSON(params, res, 10)
344
349
 
        let result = invoke(this, "makeJSONInternal", [arrTailKeys, arrTailValues, (iterationsCount - 1), lastIterationLen, newString], nil)
345
350
 
        if ((result == result))
346
351
 
            then $Tuple2(nil, result)
347
352
 
            else throw("Strict value is not equal to itself.")
348
353
 
        }
349
354
 
    else if ((lastIterationLen != 0))
350
355
 
        then {
351
356
 
            let params = prepareParams(arrKeys, arrValues, lastIterationLen)
352
357
 
            let newString = iterateMakeJSON(params, res, lastIterationLen)
353
358
 
            $Tuple2(nil, (("{" + dropRight(newString, 1)) + "}"))
354
359
 
            }
355
360
 
        else $Tuple2(nil, (("{" + dropRight(res, 1)) + "}")))
356
361
 
357
362
 
358
363
 
359
364
 
@Callable(i)
360
365
 
func makeJSON (arrKeys,arrValues) = if ((size(arrKeys) != size(arrValues)))
361
366
 
    then throw("ArrayKeys and ArrayValues length must be equal")
362
367
 
    else {
363
368
 
        let len = size(arrKeys)
364
369
 
        let iterationsCount = fraction(1, len, 10)
365
370
 
        let lastIterationLen = (len % 10)
366
371
 
        let res = invoke(this, "makeJSONInternal", [arrKeys, arrValues, iterationsCount, lastIterationLen, ""], nil)
367
372
 
        if ((res == res))
368
373
 
            then $Tuple2(nil, res)
369
374
 
            else throw("Strict value is not equal to itself.")
370
375
 
        }
371
376
 
372
377
 
373
378
 
374
379
 
@Callable(i)
375
380
 
func addToJSON (json,arrKeys,arrValues) = if ((size(arrKeys) != size(arrValues)))
376
381
 
    then throw("ArrayKeys and ArrayValues length must be equal")
377
382
 
    else {
378
383
 
        let len = size(arrKeys)
379
384
 
        let iterationsCount = fraction(1, len, 10)
380
385
 
        let lastIterationLen = (len % 10)
381
386
 
        let res = invoke(this, "makeJSONInternal", [arrKeys, arrValues, iterationsCount, lastIterationLen, (drop(dropRight(json, 1), 1) + ",")], nil)
382
387
 
        if ((res == res))
383
388
 
            then $Tuple2(nil, res)
384
389
 
            else throw("Strict value is not equal to itself.")
385
390
 
        }
386
391
 
387
392
 
388
393
 
389
394
 
@Callable(i)
390
395
 
func readByJSONKey (json,key) = {
391
396
 
    let valueByKey = readByKeyInternal(json, key)
392
397
 
    $Tuple2([StringEntry("valueByKey", valueByKey)], valueByKey)
393
398
 
    }
394
399
 
395
400
 
396
401
 
397
402
 
@Callable(i)
398
403
 
func deleteByJSONKey (json,key) = {
399
-
    let $t01433714696 = deleteByKeyInternal(json, key)
400
-
    let deletedValueByKey = $t01433714696._1
401
-
    let newJson = $t01433714696._2
404
+
    let $t01444714806 = deleteByKeyInternal(json, key)
405
+
    let deletedValueByKey = $t01444714806._1
406
+
    let newJson = $t01444714806._2
402
407
 
    $Tuple2([StringEntry("deletedValue", deletedValueByKey), StringEntry(kJsonRes, newJson)], $Tuple2(deletedValueByKey, newJson))
403
408
 
    }
404
409
 
405
410
 

github/deemru/w8io/169f3d6 
86.94 ms ◑