tx · 8jEietk42gKaRpQpSfdefSo1QhrcCYQfZdxqztzqCup7

3N7hFU6dFSFKGGwDyF9WJ1jVsrB9w8RHT37:  -0.01000000 Waves

2023.03.17 23:20 [2494470] smart account 3N7hFU6dFSFKGGwDyF9WJ1jVsrB9w8RHT37 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8jEietk42gKaRpQpSfdefSo1QhrcCYQfZdxqztzqCup7",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1679084425998,
    "version": 2,
    "chainId": 84,
    "sender": "3N7hFU6dFSFKGGwDyF9WJ1jVsrB9w8RHT37",
    "senderPublicKey": "J6bcbr8r9usSLYw72NzzrKVCvKDDLe1uDx8bnWp3uFAV",
    "proofs": [
        "4dW2MhuthW41FJCZMB9Ppj6arZ98z5HQvkckkoUpEKCGiofg9Bz55DBw5tS1d1qL3rs2Wx148maCpoGdDXkar1VY"
    ],
    "script": "base64:BgIHCAISAwoBCAMAB01VTFQzNlgJAKcDAQIlMTAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAAHTVVMVDE4WAkApwMBAhMxMDAwMDAwMDAwMDAwMDAwMDAwAARFMThYCQCnAwECEzI3MTgyODE4Mjg0NTkwNDUyMzUBAWkBBWdhbW1hAQZ6U3RyMTgEA3oxOAkApwMBBQZ6U3RyMTgEA3ozNgkAuQICBQN6MTgFB01VTFQxOFgKAQVjaGFpbgIDYWNjAWkJALgCAgkAtwICBQN6MzYJALkCAgkAtgIBCQBlAgkAZAIFAWkFAWkAAQUHTVVMVDM2WAkAvAIDCQC5AgIJALYCAQkAaAIFAWkFAWkFB01VTFQzNlgFB01VTFQzNlgFA2FjYwQBZgoAAiRsCQDMCAIAGwkAzAgCABoJAMwIAgAZCQDMCAIAGAkAzAgCABcJAMwIAgAWCQDMCAIAFQkAzAgCABQJAMwIAgATCQDMCAIAEgkAzAgCABEJAMwIAgAQCQDMCAIADwkAzAgCAA4JAMwIAgANCQDMCAIADAkAzAgCAAsJAMwIAgAKCQDMCAIACQkAzAgCAAgJAMwIAgAHCQDMCAIABgkAzAgCAAUJAMwIAgAECQDMCAIAAwkAzAgCAAIJAMwIAgABBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQdNVUxUMzZYCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVjaGFpbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAQDZXhwCQB2BgUERTE4WAASCQC+AgEFA3ozNgAkABIFBkhBTEZVUAkAlAoCBQNuaWwJAMwIAgkApgMBCQC8AgMFA2V4cAUHTVVMVDM2WAUBZgkAzAgCCQCmAwEFA2V4cAkAzAgCCQCmAwEFAWYFA25pbAAT2pDu",
    "height": 2494470,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EPfhj3SpN3BDo7CnzHowuCWk9tKmpe8d3qZLrauEGVEv
Next: 8THwKQcgHFsc5MvfhcZSr5AfMArVUAURGwv25MnVGCEW

Diff: 
Old
New
Differences
14
14
 
    func chain (acc,i) =     ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
15
15
 
16
16
 
    let f = {
17
-
        let $l = [26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1]
17
+
        let $l = [27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1]
18
18
 
        let $s = size($l)
19
19
 
        let $acc0 = MULT36X
20
20
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
27
27
 
28
28
 
        $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($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)
29
29
 
        }
30
-
    $Tuple2(nil, toString(fraction(pow(E18X, 18, -(z18), 18, 18, HALFUP), MULT36X, f)))
30
+
    let exp = pow(E18X, 18, -(z36), 36, 18, HALFUP)
31
+
    $Tuple2(nil, [toString(fraction(exp, MULT36X, f)), toString(exp), toString(f)])
31
32
 
    }
32
33
 
33
34
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let MULT36X = parseBigIntValue("1000000000000000000000000000000000000")
5
5
 
6
6
 
let MULT18X = parseBigIntValue("1000000000000000000")
7
7
 
8
8
 
let E18X = parseBigIntValue("2718281828459045235")
9
9
 
10
10
 
@Callable(i)
11
11
 
func gamma (zStr18) = {
12
12
 
    let z18 = parseBigIntValue(zStr18)
13
13
 
    let z36 = (z18 * MULT18X)
14
14
 
    func chain (acc,i) =     ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
15
15
 
16
16
 
    let f = {
17
-
        let $l = [26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1]
17
+
        let $l = [27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1]
18
18
 
        let $s = size($l)
19
19
 
        let $acc0 = MULT36X
20
20
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
21
21
 
            then $a
22
22
 
            else chain($a, $l[$i])
23
23
 
24
24
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
25
25
 
            then $a
26
26
 
            else throw("List size exceeds 40")
27
27
 
28
28
 
        $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($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)
29
29
 
        }
30
-
    $Tuple2(nil, toString(fraction(pow(E18X, 18, -(z18), 18, 18, HALFUP), MULT36X, f)))
30
+
    let exp = pow(E18X, 18, -(z36), 36, 18, HALFUP)
31
+
    $Tuple2(nil, [toString(fraction(exp, MULT36X, f)), toString(exp), toString(f)])
31
32
 
    }
32
33
 
33
34
 

github/deemru/w8io/3ef1775 
95.74 ms ◑