Solidity contract used to determine the constant that should be used in EIP-150 fork oracle.

EIP150ForkConstant.sol

pragma solidity ^0.4.2;

contract EIP150ForkConstant {
    // Used to determine gas constant
    event GasConstant(uint first, uint second, uint third);
    event OnFork(bool forked);

    // This function should be called between block X and Y.
    function run() {
        uint beforeGas = 0;
        uint afterGas = 0;
        assembly {
            beforeGas := gas
            balance
            afterGas := gas
        }
        GasConstant(beforeGas, afterGas, (beforeGas - afterGas));
        OnFork((beforeGas - afterGas) == 27);
    }
}