w8 · tx · AwU···k9U

tx · AwULt9do7nENdCNzjoFjR9kwACgJbiZwkhoDqaDTFk9U

3N7hFU6dFSFKGGwDyF9WJ1jVsrB9w8RHT37:  -0.01000000 Waves

2023.03.18 02:49 [2494683] smart account 3N7hFU6dFSFKGGwDyF9WJ1jVsrB9w8RHT37 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AwULt9do7nENdCNzjoFjR9kwACgJbiZwkhoDqaDTFk9U",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1679097006431,
    "version": 2,
    "chainId": 84,
    "sender": "3N7hFU6dFSFKGGwDyF9WJ1jVsrB9w8RHT37",
    "senderPublicKey": "J6bcbr8r9usSLYw72NzzrKVCvKDDLe1uDx8bnWp3uFAV",
    "proofs": [
        "8FsGtzWeu5ijd2yuTYqN7unxDpoyBrEj2ug5fqLUTxBRpxLT5E3B5VsMKimAgz5Mh4qtWuNDTccpmiqnXv25RQY"
    ],
    "script": "base64:BgIHCAISAwoBCAUAB01VTFQzNlgJAKcDAQIlMTAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAAHTVVMVDE4WAkApwMBAhMxMDAwMDAwMDAwMDAwMDAwMDAwAARFMThYCQCnAwECEzI3MTgyODE4Mjg0NTkwNDUyMzUABml0ZXJzMQkAzAgCAFAJAMwIAgBPCQDMCAIATgkAzAgCAE0JAMwIAgBMCQDMCAIASwkAzAgCAEoJAMwIAgBJCQDMCAIASAkAzAgCAEcJAMwIAgBGCQDMCAIARQkAzAgCAEQJAMwIAgBDCQDMCAIAQgkAzAgCAEEJAMwIAgBACQDMCAIAPwkAzAgCAD4JAMwIAgA9CQDMCAIAPAkAzAgCADsJAMwIAgA6CQDMCAIAOQkAzAgCADgJAMwIAgA3CQDMCAIANgkAzAgCADUJAMwIAgA0CQDMCAIAMwkAzAgCADIJAMwIAgAxCQDMCAIAMAkAzAgCAC8JAMwIAgAuCQDMCAIALQkAzAgCACwJAMwIAgArCQDMCAIAKgkAzAgCACkJAMwIAgAoCQDMCAIAJwkAzAgCACYJAMwIAgAlCQDMCAIAJAkAzAgCACMJAMwIAgAiCQDMCAIAIQkAzAgCACAJAMwIAgAfCQDMCAIAHgkAzAgCAB0JAMwIAgAcCQDMCAIAGwkAzAgCABoJAMwIAgAZCQDMCAIAGAkAzAgCABcJAMwIAgAWCQDMCAIAFQkAzAgCABQJAMwIAgATCQDMCAIAEgkAzAgCABEJAMwIAgAQCQDMCAIADwkAzAgCAA4JAMwIAgANCQDMCAIADAkAzAgCAAsJAMwIAgAKCQDMCAIACQkAzAgCAAgJAMwIAgAHCQDMCAIABgkAzAgCAAUJAMwIAgAECQDMCAIAAwkAzAgCAAIJAMwIAgABBQNuaWwABml0ZXJzMgkAzAgCACgJAMwIAgAnCQDMCAIAJgkAzAgCACUJAMwIAgAkCQDMCAIAIwkAzAgCACIJAMwIAgAhCQDMCAIAIAkAzAgCAB8JAMwIAgAeCQDMCAIAHQkAzAgCABwJAMwIAgAbCQDMCAIAGgkAzAgCABkJAMwIAgAYCQDMCAIAFwkAzAgCABYJAMwIAgAVCQDMCAIAFAkAzAgCABMJAMwIAgASCQDMCAIAEQkAzAgCABAJAMwIAgAPCQDMCAIADgkAzAgCAA0JAMwIAgAMCQDMCAIACwkAzAgCAAoJAMwIAgAJCQDMCAIACAkAzAgCAAcJAMwIAgAGCQDMCAIABQkAzAgCAAQJAMwIAgADCQDMCAIAAgkAzAgCAAEFA25pbAEBaQEFZ2FtbWEBBnpTdHIxOAQDejE4CQCnAwEFBnpTdHIxOAQDejM2CQC5AgIFA3oxOAUHTVVMVDE4WAoBBmNoYWluMQIDYWNjAWkJALgCAgkAtwICBQN6MzYJALkCAgkAtgIBCQBlAgkAZAIFAWkFAWkAAQUHTVVMVDM2WAkAvAIDCQC5AgIJALYCAQkAaAIFAWkFAWkFB01VTFQzNlgFB01VTFQzNlgFA2FjYwQCZjEKAAIkbAUGaXRlcnMxCgACJHMJAJADAQUCJGwKAAUkYWNjMAUHTVVMVDM2WAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEGY2hhaW4xAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA4MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIAMwA0ADUANgA3ADgAOQA6ADsAPAA9AD4APwBAAEEAQgBDAEQARQBGAEcASABJAEoASwBMAE0ATgBPAFAKAQZjaGFpbjICA2FjYwFpBARpQmlnCQC2AgEFAWkEBGFjYzEJALcCAgUHTVVMVDM2WAkAvAIDCQC5AgIFBGlCaWcFB01VTFQzNlgFB01VTFQzNlgFA2FjYwkAtwICBQN6MzYJALwCAwkAuQICBQRpQmlnBQdNVUxUMzZYBQdNVUxUMzZYBQRhY2MxBAJmMgoAAiRsBQZpdGVyczIKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQdNVUxUMzZYCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQZjaGFpbjICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDgwCQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBIAEkASgBLAEwATQBOAE8AUAQDZXhwCQB2BgUERTE4WAASCQC+AgEFA3oxOAASABIFBkhBTEZVUAkAlAoCBQNuaWwJAMwIAgkArAICCQCsAgIJAKYDAQkAvAIDBQNleHAFB01VTFQzNlgFAmYxAgEgCQCmAwEFAmYxCQDMCAIJAKwCAgkArAICCQCmAwEJALwCAwUDZXhwBQdNVUxUMzZYBQJmMgIBIAkApgMBBQJmMgUDbmlsAJVTxSE=",
    "height": 2494683,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 39yutXWGSkds397exHQv9F2s2DU2rUhVY4RYEiFx4fBr
Next: 9LBk73zJa8P8Pjz8SF7dg5hKY2BUHPFeJhff36wHEbT2

Diff: 
Old New Differences
7 7  
8 8  let E18X = parseBigIntValue("2718281828459045235")
9 9  
10 + let iters1 = [80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
11 + 
12 + let iters2 = [40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
13 + 
10 14  @Callable(i)
11 15  func gamma (zStr18) = {
12 16      let z18 = parseBigIntValue(zStr18)
13 17      let z36 = (z18 * MULT18X)
14 -     func chain (acc,i) =     ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
18 +     func chain1 (acc,i) =     ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
15 19  
16 -     let f = {
17 -         let $l = [80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
20 +     let f1 = {
21 +         let $l = iters1
18 22          let $s = size($l)
19 23          let $acc0 = MULT36X
20 24          func $f0_1 ($a,$i) =         if (($i >= $s))
21 25              then $a
22 -             else chain($a, $l[$i])
26 +             else chain1($a, $l[$i])
23 27  
24 28          func $f0_2 ($a,$i) =         if (($i >= $s))
25 29              then $a
27 31  
28 32          $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($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)
29 33          }
34 +     func chain2 (acc,i) =     {
35 +         let iBig = toBigInt(i)
36 +         let acc1 = (MULT36X + fraction((iBig * MULT36X), MULT36X, acc))
37 +         (z36 + fraction((iBig * MULT36X), MULT36X, acc1))
38 +         }
39 + 
40 +     let f2 = {
41 +         let $l = iters2
42 +         let $s = size($l)
43 +         let $acc0 = MULT36X
44 +         func $f1_1 ($a,$i) =         if (($i >= $s))
45 +             then $a
46 +             else chain2($a, $l[$i])
47 + 
48 +         func $f1_2 ($a,$i) =         if (($i >= $s))
49 +             then $a
50 +             else throw("List size exceeds 80")
51 + 
52 +         $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_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)
53 +         }
30 54      let exp = pow(E18X, 18, -(z18), 18, 18, HALFUP)
31 -     $Tuple2(nil, ((toString(fraction(exp, MULT36X, f)) + " ") + toString(f)))
55 +     $Tuple2(nil, [((toString(fraction(exp, MULT36X, f1)) + " ") + toString(f1)), ((toString(fraction(exp, MULT36X, f2)) + " ") + toString(f2))])
32 56      }
33 57  
34 58  
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 + let iters1 = [80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
11 + 
12 + let iters2 = [40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
13 + 
10 14  @Callable(i)
11 15  func gamma (zStr18) = {
12 16      let z18 = parseBigIntValue(zStr18)
13 17      let z36 = (z18 * MULT18X)
14 -     func chain (acc,i) =     ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
18 +     func chain1 (acc,i) =     ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
15 19  
16 -     let f = {
17 -         let $l = [80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
20 +     let f1 = {
21 +         let $l = iters1
18 22          let $s = size($l)
19 23          let $acc0 = MULT36X
20 24          func $f0_1 ($a,$i) =         if (($i >= $s))
21 25              then $a
22 -             else chain($a, $l[$i])
26 +             else chain1($a, $l[$i])
23 27  
24 28          func $f0_2 ($a,$i) =         if (($i >= $s))
25 29              then $a
26 30              else throw("List size exceeds 80")
27 31  
28 32          $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($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)
29 33          }
34 +     func chain2 (acc,i) =     {
35 +         let iBig = toBigInt(i)
36 +         let acc1 = (MULT36X + fraction((iBig * MULT36X), MULT36X, acc))
37 +         (z36 + fraction((iBig * MULT36X), MULT36X, acc1))
38 +         }
39 + 
40 +     let f2 = {
41 +         let $l = iters2
42 +         let $s = size($l)
43 +         let $acc0 = MULT36X
44 +         func $f1_1 ($a,$i) =         if (($i >= $s))
45 +             then $a
46 +             else chain2($a, $l[$i])
47 + 
48 +         func $f1_2 ($a,$i) =         if (($i >= $s))
49 +             then $a
50 +             else throw("List size exceeds 80")
51 + 
52 +         $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_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)
53 +         }
30 54      let exp = pow(E18X, 18, -(z18), 18, 18, HALFUP)
31 -     $Tuple2(nil, ((toString(fraction(exp, MULT36X, f)) + " ") + toString(f)))
55 +     $Tuple2(nil, [((toString(fraction(exp, MULT36X, f1)) + " ") + toString(f1)), ((toString(fraction(exp, MULT36X, f2)) + " ") + toString(f2))])
32 56      }
33 57  
34 58

Old	New		Differences
7	7
8	8		let E18X = parseBigIntValue("2718281828459045235")
9	9
	10	+	let iters1 = [80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
	11	+
	12	+	let iters2 = [40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
	13	+
10	14		@Callable(i)
11	15		func gamma (zStr18) = {
12	16		let z18 = parseBigIntValue(zStr18)
13	17		let z36 = (z18 * MULT18X)
14		-	func ~~chain~~ (acc,i) = ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
	18	+	func chain1 (acc,i) = ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
15	19
16		-	let f = {
17		-	let $l = [80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
	20	+	let f1 = {
	21	+	let $l = iters1
18	22		let $s = size($l)
19	23		let $acc0 = MULT36X
20	24		func $f0_1 ($a,$i) = if (($i >= $s))
21	25		then $a
22		-	else ~~chain~~($a, $l[$i])
	26	+	else chain1($a, $l[$i])
23	27
24	28		func $f0_2 ($a,$i) = if (($i >= $s))
25	29		then $a

27	31
28	32		$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($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)
29	33		}
	34	+	func chain2 (acc,i) = {
	35	+	let iBig = toBigInt(i)
	36	+	let acc1 = (MULT36X + fraction((iBig * MULT36X), MULT36X, acc))
	37	+	(z36 + fraction((iBig * MULT36X), MULT36X, acc1))
	38	+	}
	39	+
	40	+	let f2 = {
	41	+	let $l = iters2
	42	+	let $s = size($l)
	43	+	let $acc0 = MULT36X
	44	+	func $f1_1 ($a,$i) = if (($i >= $s))
	45	+	then $a
	46	+	else chain2($a, $l[$i])
	47	+
	48	+	func $f1_2 ($a,$i) = if (($i >= $s))
	49	+	then $a
	50	+	else throw("List size exceeds 80")
	51	+
	52	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_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)
	53	+	}
30	54		let exp = pow(E18X, 18, -(z18), 18, 18, HALFUP)
31		-	$Tuple2(nil, ((toString(fraction(exp, MULT36X, f)) + " ") + toString(f)))
	55	+	$Tuple2(nil, [((toString(fraction(exp, MULT36X, f1)) + " ") + toString(f1)), ((toString(fraction(exp, MULT36X, f2)) + " ") + toString(f2))])
32	56		}
33	57
34	58

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	+	let iters1 = [80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
	11	+
	12	+	let iters2 = [40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
	13	+
10	14		@Callable(i)
11	15		func gamma (zStr18) = {
12	16		let z18 = parseBigIntValue(zStr18)
13	17		let z36 = (z18 * MULT18X)
14		-	func ~~chain~~ (acc,i) = ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
	18	+	func chain1 (acc,i) = ((z36 + (toBigInt(((i + i) - 1)) * MULT36X)) - fraction((toBigInt((i * i)) * MULT36X), MULT36X, acc))
15	19
16		-	let f = {
17		-	let $l = [80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 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]
	20	+	let f1 = {
	21	+	let $l = iters1
18	22		let $s = size($l)
19	23		let $acc0 = MULT36X
20	24		func $f0_1 ($a,$i) = if (($i >= $s))
21	25		then $a
22		-	else ~~chain~~($a, $l[$i])
	26	+	else chain1($a, $l[$i])
23	27
24	28		func $f0_2 ($a,$i) = if (($i >= $s))
25	29		then $a
26	30		else throw("List size exceeds 80")
27	31
28	32		$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($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)
29	33		}
	34	+	func chain2 (acc,i) = {
	35	+	let iBig = toBigInt(i)
	36	+	let acc1 = (MULT36X + fraction((iBig * MULT36X), MULT36X, acc))
	37	+	(z36 + fraction((iBig * MULT36X), MULT36X, acc1))
	38	+	}
	39	+
	40	+	let f2 = {
	41	+	let $l = iters2
	42	+	let $s = size($l)
	43	+	let $acc0 = MULT36X
	44	+	func $f1_1 ($a,$i) = if (($i >= $s))
	45	+	then $a
	46	+	else chain2($a, $l[$i])
	47	+
	48	+	func $f1_2 ($a,$i) = if (($i >= $s))
	49	+	then $a
	50	+	else throw("List size exceeds 80")
	51	+
	52	+	$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_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)
	53	+	}
30	54		let exp = pow(E18X, 18, -(z18), 18, 18, HALFUP)
31		-	$Tuple2(nil, ((toString(fraction(exp, MULT36X, f)) + " ") + toString(f)))
	55	+	$Tuple2(nil, [((toString(fraction(exp, MULT36X, f1)) + " ") + toString(f1)), ((toString(fraction(exp, MULT36X, f2)) + " ") + toString(f2))])
32	56		}
33	57
34	58

github/deemru/w8io/169f3d6 
43.47 ms ◑