Peaker

[
    {
        "schemaVersion": 15
    },
    {
        "tagOrder": 0,
        "tag": "0f82aca66af91493b1ff401de5f1f7e3",
        "names": {
            "hebrew": "אורך",
            "english": {

Peaker

from contextlib import contextmanager

@contextmanager
def injected_fault(params):
    fault_manager.inject(params)
    try:
        yield
    finally:
        fault_manager.clear(params)

Peaker

{-# LANGUAGE OverloadedStrings #-}

{- To Run:
   Load in ghci
   :set -XOverloadedStrings (for convenience)
   Execute repl expr -}

import Control.Applicative
import Control.Monad.State.Strict
import Data.Function

Peaker

var o = Object.freeze;
var logResult = function (scope,exprId,result) { return result;};
var logNewScope = function (parentScope,childScope,lamId) {};
var scopeId_0 = 0;
var scopeCounter = 1;
var logobj = function (obj) {
   for (var key in obj)    console.log(key + " = " + obj[key]);
};
var wrap = function (fast,slow) {
   var count = 0;

Peaker

var greaterequals = function (i3) {
   return {tag: i3.infixl >= i3.infixr ? "True" : "False",data: undefined};
};
var plus = function (i5) { return i5.infixl + i5.infixr;};
var dotdot = function (local_1) {
   return function (local_2) {
          var x = greaterequals(Object.freeze({infixl: local_1.begin
                                              ,infixr: local_1.end}));
          switch (x.tag)
          {

Peaker

function flapjaxInit(options) {
   var defaultOptions = {includeSynonyms: true
                        ,exportMisc: true
                        ,exportCore: true
                        ,exportDOM: true
                        ,exportDOMMisc: true
                        ,exportWS: true
                        ,hide: []
                        ,show: []
                        ,redefine: false};

Peaker

function flapjaxInit(options) {
   var defaultOptions = {includeSynonyms: true
                        ,exportMisc: true
                        ,exportCore: true
                        ,exportDOM: true
                        ,exportDOMMisc: true
                        ,exportWS: true
                        ,hide: []
                        ,show: []
                        ,redefine: false};

Peaker

function flapjaxInit(options) {
   var defaultOptions = {includeSynonyms: true
                        ,exportMisc: true
                        ,exportCore: true
                        ,exportDOM: true
                        ,exportDOMMisc: true
                        ,exportWS: true
                        ,hide: []
                        ,show: []
                        ,redefine: false};

Peaker

-- my implementation of this: http://www.cs.hmc.edu/~oneill/papers/Sieve-JFP.pdf

import qualified Data.PSQueue as DQ

insertThenDel k p pq = DQ.deleteMin $ DQ.insert k p pq

minPriority pq = 
            case DQ.findMin pq of
                (Just m) -> 
                    let mp = DQ.prio m

Peaker

{-# LANGUAGE TypeFamilies #-}
class Collection c where
    type Element c
    insert :: Element c -> c -> c

instance Collection [a] where
    type Element [a] = a
    insert = (:)