Heimdell

{-# LANGUAGE FlexibleContexts #-}

module Eval
  ( EvalError (..)
  , eval
  , letrec
  ) where

import Control.Monad.Catch (Exception)

Heimdell

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}

module Instr where

import Prelude hiding (drop)

import Data.Map (Map)
import Data.String

Heimdell

using System;
using System.Collections;
using System.Collections.Generic;
using UnityEngine;

/*
 * I need these functions.
 */
public static class ListExt {
    /*

Heimdell

https://github.com/ephtracy/voxel-model/blob/master/MagicaVoxel-file-format-vox-extension.txt

Heimdell

using System;
using System.Collections;
using System.Collections.Generic;
using UnityEngine;

/*
 * I need these functions.
 */
public static class ListExt {
    /*

Heimdell

{-# OPTIONS_GHC -fglasgow-exts #-}
{-# Language LambdaCase #-}
{-# Language TypeApplications #-}
{-# Language ScopedTypeVariables #-}
{-# Language ExplicitForAll #-}
{-# Language AllowAmbiguousTypes #-}
{-# Language TypeFamilies #-}
{-# Language DataKinds #-}
{-# Language EmptyCase #-}

Heimdell

{-# language DeriveFunctor #-}

import Control.Applicative ((<|>))

import qualified Data.Map as Map
import Data.Map (Map)
import Data.Maybe

newtype FrameStack k v = FrameStack

Heimdell

// Задача: написать односвязный иммутабельный список и несколько функций для него.

let List = {

    // Пустой список. Поскольку он иммутабельный, хватит и одного на все списки.
    //
    empty: undefined,

    // Присоединить элемент head к списку tail.

Heimdell

let R         = require("./node_modules/ramda")
let treeUtils = require("./tree-utils")
let {inspect} = require("util")

show = x => inspect(x, {depth: null})
log  = console.log

///////////////////////////////////////////////////////////////////////////////

Heimdell

/*
    Array is too dumb.
*/
class Subscribers {
    constructor () {
        this.counter = 0
        this.mapping = new Map()
    }

    add(sink) {