w8 · tx · GGb···3tP

tx · GGbRPTTukk97tSk69c3PvDe75sZPoDVeTFoKhVEwk3tP

3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7:  -0.01000000 Waves

2023.03.17 21:22 [2494356] smart account 3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GGbRPTTukk97tSk69c3PvDe75sZPoDVeTFoKhVEwk3tP",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1679077372578,
    "version": 2,
    "chainId": 84,
    "sender": "3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7",
    "senderPublicKey": "CrHxACS7bWTh8cgmgqstvybmgMqR9KtDryGFt5svZhBW",
    "proofs": [
        "4pTXLhHRSSdFeUVZXM5BV7mkcbqBhMnKeRWCmcCWnwzVX1bWn3XYLACTsZmo36ruyykx4cAYRTMo5WEDMqV1duGm"
    ],
    "script": "base64:BgIkCAISBwoFGBgBAQgSBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIFQAIa0pzb25SZXMCB2pzb25SZXMABXF1b3RlCQCwCQEBASIBCW1ha2VGaWVsZAEJbmV4dFZhbHVlAwcJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQVxdW90ZQgFCW5leHRWYWx1ZQJfMQUFcXVvdGUCAToIBQluZXh0VmFsdWUCXzICASwJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUFcXVvdGUIBQluZXh0VmFsdWUCXzEFBXF1b3RlAgE6BQVxdW90ZQgFCW5leHRWYWx1ZQJfMgUFcXVvdGUCASwBD3JlZHVjZXJNYWtlSlNPTgIFYWNjdW0JbmV4dFZhbHVlCQCsAgIFBWFjY3VtCQEJbWFrZUZpZWxkAQUJbmV4dFZhbHVlAQ9pdGVyYXRlTWFrZUpTT04DBnBhcmFtcwNyZXMGbGVuZ3RoAwkAAAIFBmxlbmd0aAAACQACAQINRW1wdHkgIHBhcmFtcwMJAAACBQZsZW5ndGgAAQoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMQkBBSRmMF8yAgkBBSRmMF8xAgUFJGFjYzAAAAABAwkAAAIFBmxlbmd0aAACCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA3JlcwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPcmVkdWNlck1ha2VKU09OAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAyCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgMJAAACBQZsZW5ndGgAAwoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMwkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwMJAAACBQZsZW5ndGgABAoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAwkAAAIFBmxlbmd0aAAFCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA3JlcwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPcmVkdWNlck1ha2VKU09OAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA1CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQMJAAACBQZsZW5ndGgABgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgMJAAACBQZsZW5ndGgABwoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNwkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAwkAAAIFBmxlbmd0aAAICgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA3JlcwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEPcmVkdWNlck1ha2VKU09OAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA4CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAMJAAACBQZsZW5ndGgACQoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgOQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQMJAAACBQZsZW5ndGgACgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkAAgECJVRoZSBtYXggbnVtYmVyIG9mIHBhcmFtZXRlcnMgZXhjZWVkZWQBDmdldFBhcnRBbmRUYWlsAQNhcnIEA2VsMAkAkQMCBQNhcnIAAAQDZWwxCQCRAwIFA2FycgABBANlbDIJAJEDAgUDYXJyAAIEA2VsMwkAkQMCBQNhcnIAAwQDZWw0CQCRAwIFA2FycgAEBANlbDUJAJEDAgUDYXJyAAUEA2VsNgkAkQMCBQNhcnIABgQDZWw3CQCRAwIFA2FycgAHBANlbDgJAJEDAgUDYXJyAAgEA2VsOQkAkQMCBQNhcnIACQQEYXJyMAkA0QgCBQNhcnIAAAQEYXJyMQkA0QgCBQRhcnIwAAAEBGFycjIJANEIAgUEYXJyMQAABARhcnIzCQDRCAIFBGFycjIAAAQEYXJyNAkA0QgCBQRhcnIzAAAEBGFycjUJANEIAgUEYXJyNAAABARhcnI2CQDRCAIFBGFycjUAAAQEYXJyNwkA0QgCBQRhcnI2AAAEBGFycjgJANEIAgUEYXJyNwAABARhcnI5CQDRCAIFBGFycjgAAAkAlAoCCQDMCAIFA2VsMAkAzAgCBQNlbDEJAMwIAgUDZWwyCQDMCAIFA2VsMwkAzAgCBQNlbDQJAMwIAgUDZWw1CQDMCAIFA2VsNgkAzAgCBQNlbDcJAMwIAgUDZWw4CQDMCAIFA2VsOQUDbmlsBQRhcnI5AQxvbmx5SW50ZXJuYWwBBmNhbGxlcgMJAAACBQZjYWxsZXIFBHRoaXMFBHVuaXQJAAIBAhJPbmx5IGludGVybmFsIGNhbGwBCXByZXBhcmVfMQIDYXJyBGFycjIJAMwIAgkAlAoCCQCRAwIFA2FycgAACQCRAwIFBGFycjIAAAUDbmlsAQlwcmVwYXJlXzICA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQUDbmlsAQlwcmVwYXJlXzMCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACBQNuaWwBCXByZXBhcmVfNAIDYXJyBGFycjIJAMwIAgkAlAoCCQCRAwIFA2FycgAACQCRAwIFBGFycjIAAAkAzAgCCQCUCgIJAJEDAgUDYXJyAAEJAJEDAgUEYXJyMgABCQDMCAIJAJQKAgkAkQMCBQNhcnIAAgkAkQMCBQRhcnIyAAIJAMwIAgkAlAoCCQCRAwIFA2FycgADCQCRAwIFBGFycjIAAwUDbmlsAQlwcmVwYXJlXzUCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAUDbmlsAQlwcmVwYXJlXzYCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFBQNuaWwBCXByZXBhcmVfNwIDYXJyBGFycjIJAMwIAgkAlAoCCQCRAwIFA2FycgAACQCRAwIFBGFycjIAAAkAzAgCCQCUCgIJAJEDAgUDYXJyAAEJAJEDAgUEYXJyMgABCQDMCAIJAJQKAgkAkQMCBQNhcnIAAgkAkQMCBQRhcnIyAAIJAMwIAgkAlAoCCQCRAwIFA2FycgADCQCRAwIFBGFycjIAAwkAzAgCCQCUCgIJAJEDAgUDYXJyAAQJAJEDAgUEYXJyMgAECQDMCAIJAJQKAgkAkQMCBQNhcnIABQkAkQMCBQRhcnIyAAUJAMwIAgkAlAoCCQCRAwIFA2FycgAGCQCRAwIFBGFycjIABgUDbmlsAQlwcmVwYXJlXzgCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFCQDMCAIJAJQKAgkAkQMCBQNhcnIABgkAkQMCBQRhcnIyAAYJAMwIAgkAlAoCCQCRAwIFA2FycgAHCQCRAwIFBGFycjIABwUDbmlsAQlwcmVwYXJlXzkCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFCQDMCAIJAJQKAgkAkQMCBQNhcnIABgkAkQMCBQRhcnIyAAYJAMwIAgkAlAoCCQCRAwIFA2FycgAHCQCRAwIFBGFycjIABwkAzAgCCQCUCgIJAJEDAgUDYXJyAAgJAJEDAgUEYXJyMgAIBQNuaWwBCnByZXBhcmVfMTACA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFCQDMCAIJAJQKAgkAkQMCBQNhcnIABgkAkQMCBQRhcnIyAAYJAMwIAgkAlAoCCQCRAwIFA2FycgAHCQCRAwIFBGFycjIABwkAzAgCCQCUCgIJAJEDAgUDYXJyAAgJAJEDAgUEYXJyMgAICQDMCAIJAJQKAgkAkQMCBQNhcnIACQkAkQMCBQRhcnIyAAkFA25pbAENcHJlcGFyZVBhcmFtcwMSY3VycmVudEFyclBhcnRLZXlzFGN1cnJlbnRBcnJQYXJ0VmFsdWVzBmxlbmd0aAMJAAACBQZsZW5ndGgAAAkAAgECDUVtcHR5ICBwYXJhbXMDCQAAAgUGbGVuZ3RoAAEJAQlwcmVwYXJlXzECBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAACCQEJcHJlcGFyZV8yAgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgAAwkBCXByZXBhcmVfMwIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAQJAQlwcmVwYXJlXzQCBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAAFCQEJcHJlcGFyZV81AgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgABgkBCXByZXBhcmVfNgIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAcJAQlwcmVwYXJlXzcCBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAAICQEJcHJlcGFyZV84AgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgACQkBCXByZXBhcmVfOQIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAoJAQpwcmVwYXJlXzEwAgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwkAAgECIU1heCBudW1iZXIgb2YgcGFyYW1ldGVycyBleGNlZWRlZAEVZ2V0U3RhcnRBbmRFbmRJbmRleGVzAgRqc29uA2tleQQGa2V5TGVuCQCxAgEFA2tleQQKc3RhcnRJbmRleAkBBXZhbHVlAQkAswkCBQRqc29uBQNrZXkECyR0MDYxMDc2NDkyAwcJAJQKAgkBC3ZhbHVlT3JFbHNlAgkAtAkDBQRqc29uAgEsBQpzdGFydEluZGV4CQEFdmFsdWUBCQC0CQMFBGpzb24CAX0FCnN0YXJ0SW5kZXgAAgkAlAoCCQELdmFsdWVPckVsc2UCCQC0CQMFBGpzb24CASwFCnN0YXJ0SW5kZXgJAQV2YWx1ZQEJALQJAwUEanNvbgIBfQUKc3RhcnRJbmRleAADBAhlbmRJbmRleAgFCyR0MDYxMDc2NDkyAl8xBAFrCAULJHQwNjEwNzY0OTICXzIJAJYKBAUGa2V5TGVuBQpzdGFydEluZGV4BQhlbmRJbmRleAUBawERcmVhZEJ5S2V5SW50ZXJuYWwCBGpzb24Da2V5BAskdDA2NzExNjgyNwkBFWdldFN0YXJ0QW5kRW5kSW5kZXhlcwIFBGpzb24FA2tleQQGa2V5TGVuCAULJHQwNjcxMTY4MjcCXzEECnN0YXJ0SW5kZXgIBQskdDA2NzExNjgyNwJfMgQIZW5kSW5kZXgIBQskdDA2NzExNjgyNwJfMwQBawgFCyR0MDY3MTE2ODI3Al80CQCwAgIJAK8CAgUEanNvbgkAZQIFCGVuZEluZGV4AAEJAGQCCQBkAgUKc3RhcnRJbmRleAUGa2V5TGVuBQFrARNkZWxldGVCeUtleUludGVybmFsAgRqc29uA2tleQQLJHQwNzEwMTcyMjgJARVnZXRTdGFydEFuZEVuZEluZGV4ZXMCBQRqc29uBQNrZXkEBmtleUxlbggFCyR0MDcxMDE3MjI4Al8xBApzdGFydEluZGV4CAULJHQwNzEwMTcyMjgCXzIECGVuZEluZGV4CAULJHQwNzEwMTcyMjgCXzMEAWsIBQskdDA3MTAxNzIyOAJfNAQMZGVsZXRlZFZhbHVlCQCwAgIJAK8CAgUEanNvbgkAZQIFCGVuZEluZGV4AAEJAGQCCQBkAgUKc3RhcnRJbmRleAUGa2V5TGVuBQFrBAduZXdKc29uAwkAAAIJAGUCCQCxAgEFBGpzb24FCGVuZEluZGV4AAEJAKwCAgkArwICBQRqc29uCQBlAgUKc3RhcnRJbmRleAACCQCwAgIFBGpzb24FCGVuZEluZGV4CQCsAgIJAK8CAgUEanNvbgkAZQIFCnN0YXJ0SW5kZXgAAQkAsAICBQRqc29uCQBkAgUIZW5kSW5kZXgAAQkAlAoCBQxkZWxldGVkVmFsdWUFB25ld0pzb24FAWkBEG1ha2VKU09OSW50ZXJuYWwFB2FycktleXMJYXJyVmFsdWVzD2l0ZXJhdGlvbnNDb3VudBBsYXN0SXRlcmF0aW9uTGVuA3JlcwkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgMJAGYCBQ9pdGVyYXRpb25zQ291bnQAAAQLJHQwODMyNzg0ODkJAQ5nZXRQYXJ0QW5kVGFpbAEFB2FycktleXMEEmN1cnJlbnRBcnJQYXJ0S2V5cwgFCyR0MDgzMjc4NDg5Al8xBAthcnJUYWlsS2V5cwgFCyR0MDgzMjc4NDg5Al8yBAskdDA4NDk4ODYxMwkBDmdldFBhcnRBbmRUYWlsAQUJYXJyVmFsdWVzBBRjdXJyZW50QXJyUGFydFZhbHVlcwgFCyR0MDg0OTg4NjEzAl8xBA1hcnJUYWlsVmFsdWVzCAULJHQwODQ5ODg2MTMCXzIEBnBhcmFtcwkBDXByZXBhcmVQYXJhbXMDBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAAoECW5ld1N0cmluZwkBD2l0ZXJhdGVNYWtlSlNPTgMFBnBhcmFtcwUDcmVzAAoEBnJlc3VsdAkA/AcEBQR0aGlzAhBtYWtlSlNPTkludGVybmFsCQDMCAIFC2FyclRhaWxLZXlzCQDMCAIFDWFyclRhaWxWYWx1ZXMJAMwIAgkAZQIFD2l0ZXJhdGlvbnNDb3VudAABCQDMCAIFEGxhc3RJdGVyYXRpb25MZW4JAMwIAgUJbmV3U3RyaW5nBQNuaWwFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAkAlAoCBQNuaWwFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgMJAQIhPQIFEGxhc3RJdGVyYXRpb25MZW4AAAQGcGFyYW1zCQENcHJlcGFyZVBhcmFtcwMFB2FycktleXMFCWFyclZhbHVlcwUQbGFzdEl0ZXJhdGlvbkxlbgQJbmV3U3RyaW5nCQEPaXRlcmF0ZU1ha2VKU09OAwUGcGFyYW1zBQNyZXMFEGxhc3RJdGVyYXRpb25MZW4JAJQKAgUDbmlsCQCsAgIJAKwCAgIBewkAswICBQluZXdTdHJpbmcAAQIBfQkAlAoCBQNuaWwJAKwCAgkArAICAgF7CQCzAgIFA3JlcwABAgF9AWkBCG1ha2VKU09OAgdhcnJLZXlzCWFyclZhbHVlcwMJAQIhPQIJAJADAQUHYXJyS2V5cwkAkAMBBQlhcnJWYWx1ZXMJAAIBAi5BcnJheUtleXMgYW5kIEFycmF5VmFsdWVzIGxlbmd0aCBtdXN0IGJlIGVxdWFsBANsZW4JAJADAQUHYXJyS2V5cwQPaXRlcmF0aW9uc0NvdW50CQBrAwABBQNsZW4ACgQQbGFzdEl0ZXJhdGlvbkxlbgkAagIFA2xlbgAKBANyZXMJAPwHBAUEdGhpcwIQbWFrZUpTT05JbnRlcm5hbAkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwkAzAgCBQ9pdGVyYXRpb25zQ291bnQJAMwIAgUQbGFzdEl0ZXJhdGlvbkxlbgkAzAgCAgAFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQCUCgIFA25pbAUDcmVzCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCWFkZFRvSlNPTgMEanNvbgdhcnJLZXlzCWFyclZhbHVlcwMJAQIhPQIJAJADAQUHYXJyS2V5cwkAkAMBBQlhcnJWYWx1ZXMJAAIBAi5BcnJheUtleXMgYW5kIEFycmF5VmFsdWVzIGxlbmd0aCBtdXN0IGJlIGVxdWFsBANsZW4JAJADAQUHYXJyS2V5cwQPaXRlcmF0aW9uc0NvdW50CQBrAwABBQNsZW4ACgQQbGFzdEl0ZXJhdGlvbkxlbgkAagIFA2xlbgAKBANyZXMJAPwHBAUEdGhpcwIQbWFrZUpTT05JbnRlcm5hbAkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwkAzAgCBQ9pdGVyYXRpb25zQ291bnQJAMwIAgUQbGFzdEl0ZXJhdGlvbkxlbgkAzAgCCQCsAgIJALACAgkAswICBQRqc29uAAEAAQIBLAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQENcmVhZEJ5SlNPTktleQIEanNvbgNrZXkECnZhbHVlQnlLZXkJARFyZWFkQnlLZXlJbnRlcm5hbAIFBGpzb24FA2tleQkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQICCnZhbHVlQnlLZXkFCnZhbHVlQnlLZXkFA25pbAUKdmFsdWVCeUtleQFpAQ9kZWxldGVCeUpTT05LZXkCBGpzb24Da2V5BA0kdDAxMjkwODEzMjU5CQETZGVsZXRlQnlLZXlJbnRlcm5hbAIFBGpzb24FA2tleQQRZGVsZXRlZFZhbHVlQnlLZXkIBQ0kdDAxMjkwODEzMjU5Al8xBAduZXdKc29uCAUNJHQwMTI5MDgxMzI1OQJfMgkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQICDGRlbGV0ZWRWYWx1ZQURZGVsZXRlZFZhbHVlQnlLZXkJAMwIAgkBC1N0cmluZ0VudHJ5AgUIa0pzb25SZXMFB25ld0pzb24FA25pbAkAlAoCBRFkZWxldGVkVmFsdWVCeUtleQUHbmV3SnNvbgAXmLDx",
    "height": 2494356,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: HLUgGNAPKgj69aEY19sqfVVBxvkudqAmCwmHQMDGCHvf
Next: 5ND1xMXc8K97KG68jLnpujBhVN8GcxhWKLDL3vmQ7aD

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

Old	New		Differences
5	5
6	6		let quote = toUtf8String(base58'b')
7	7
8		-	func makeField (nextValue) = (((((((quote + nextValue._1) + quote) + ":") + quote) + nextValue._2) + quote) + ",")
	8	+	func makeField (nextValue) = if (false)
	9	+	then (((((quote + nextValue._1) + quote) + ":") + nextValue._2) + ",")
	10	+	else (((((((quote + nextValue._1) + quote) + ":") + quote) + nextValue._2) + quote) + ",")
9	11
10	12
11	13		func reducerMakeJSON (accum,nextValue) = (accum + makeField(nextValue))

254	256		func getStartAndEndIndexes (json,key) = {
255	257		let keyLen = size(key)
256	258		let startIndex = value(indexOf(json, key))
257		-	let endIndex = valueOrElse(indexOf(json, ",", startIndex), value(indexOf(json, "}", startIndex)))
258		-	$Tuple3(keyLen, startIndex, endIndex)
	259	+	let $t061076492 = if (false)
	260	+	then $Tuple2(valueOrElse(indexOf(json, ",", startIndex), value(indexOf(json, "}", startIndex))), 2)
	261	+	else $Tuple2(valueOrElse(indexOf(json, ",", startIndex), value(indexOf(json, "}", startIndex))), 3)
	262	+	let endIndex = $t061076492._1
	263	+	let k = $t061076492._2
	264	+	$Tuple4(keyLen, startIndex, endIndex, k)
259	265		}
260	266
261	267
262	268		func readByKeyInternal (json,key) = {
263		-	let $t067206833 = getStartAndEndIndexes(json, key)
264		-	let keyLen = $t067206833._1
265		-	let startIndex = $t067206833._2
266		-	let endIndex = $t067206833._3
267		-	drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
	269	+	let $t067116827 = getStartAndEndIndexes(json, key)
	270	+	let keyLen = $t067116827._1
	271	+	let startIndex = $t067116827._2
	272	+	let endIndex = $t067116827._3
	273	+	let k = $t067116827._4
	274	+	drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + k))
268	275		}
269	276
270	277
271	278		func deleteByKeyInternal (json,key) = {
272		-	let $t071077231 = getStartAndEndIndexes(json, key)
273		-	let keyLen = $t071077231._1
274		-	let startIndex = $t071077231._2
275		-	let endIndex = $t071077231._3
276		-	let deletedValue = drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
	279	+	let $t071017228 = getStartAndEndIndexes(json, key)
	280	+	let keyLen = $t071017228._1
	281	+	let startIndex = $t071017228._2
	282	+	let endIndex = $t071017228._3
	283	+	let k = $t071017228._4
	284	+	let deletedValue = drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + k))
277	285		let newJson = if (((size(json) - endIndex) == 1))
278	286		then (take(json, (startIndex - 2)) + drop(json, endIndex))
279	287		else (take(json, (startIndex - 1)) + drop(json, (endIndex + 1)))

284	292		@Callable(i)
285	293		func makeJSONInternal (arrKeys,arrValues,iterationsCount,lastIterationLen,res) = valueOrElse(onlyInternal(i.caller), if ((iterationsCount > 0))
286	294		then {
287		-	let $~~t083308492~~ = getPartAndTail(arrKeys)
288		-	let currentArrPartKeys = $~~t083308492~~._1
289		-	let arrTailKeys = $~~t083308492~~._2
290		-	let $~~t085018616~~ = getPartAndTail(arrValues)
291		-	let currentArrPartValues = $~~t085018616~~._1
292		-	let arrTailValues = $~~t085018616~~._2
	295	+	let $t083278489 = getPartAndTail(arrKeys)
	296	+	let currentArrPartKeys = $t083278489._1
	297	+	let arrTailKeys = $t083278489._2
	298	+	let $t084988613 = getPartAndTail(arrValues)
	299	+	let currentArrPartValues = $t084988613._1
	300	+	let arrTailValues = $t084988613._2
293	301		let params = prepareParams(currentArrPartKeys, currentArrPartValues, 10)
294	302		let newString = iterateMakeJSON(params, res, 10)
295	303		let result = invoke(this, "makeJSONInternal", [arrTailKeys, arrTailValues, (iterationsCount - 1), lastIterationLen, newString], nil)

347	355
348	356		@Callable(i)
349	357		func deleteByJSONKey (json,key) = {
350		-	let $~~t01291113262~~ = deleteByKeyInternal(json, key)
351		-	let deletedValueByKey = $~~t01291113262~~._1
352		-	let newJson = $~~t01291113262~~._2
	358	+	let $t01290813259 = deleteByKeyInternal(json, key)
	359	+	let deletedValueByKey = $t01290813259._1
	360	+	let newJson = $t01290813259._2
353	361		$Tuple2([StringEntry("deletedValue", deletedValueByKey), StringEntry(kJsonRes, newJson)], $Tuple2(deletedValueByKey, newJson))
354	362		}
355	363

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

github/deemru/w8io/873ac7e 
76.84 ms ◑