The code uses a slightly modified version of d3-axis component.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
namespace foo | |
definition bool := ∀ a : Type, a → a → a | |
definition tt : bool := λ (a : Type) (c d : a), c | |
definition ff : bool := λ (a : Type) (c d : a), d | |
definition bor (a b : bool) : bool := a bool tt b | |
definition boolProp := ∀ a : Prop, a → a → a | |
definition ind_on_T := ∀ P : bool → Prop, ∀ a : bool, P tt → P ff → P a |
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE TypeFamilies, DeriveFunctor, OverloadedStrings, DeriveFoldable, FlexibleContexts #-} | |
module Main (main) where | |
import Prelude hiding (Foldable) | |
import qualified Prelude as P (Foldable) | |
import Data.Functor.Foldable | |
import Data.Foldable (toList) | |
import Language.Sexp | |
import Data.Maybe | |
data Op = Plus | Star | Minus deriving Show |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
var parse = require('sexpr-plus').parse | |
var Q = require('q') | |
var ops = { | |
'+' : (a, b) => a + b | |
, '-' : (a, b) => a - b | |
, '*' : (a, b) => a * b | |
} | |
function eval(p) |
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE GADTs, NoMonomorphismRestriction, StandaloneDeriving, Rank2Types #-} | |
import Compiler.Hoopl | |
import Prelude hiding ((<*>)) | |
data Node e x where | |
Entry :: Label -> Node C O | |
Exit :: [Label] -> Node O C | |
instance NonLocal Node where |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
license: gpl-3.0 |