Perigord-Kleisli

{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeApplications #-}

module Main (main) where

Perigord-Kleisli

{-# LANGUAGE LambdaCase #-}
module Main (main) where

import SimpleInteractiveInterpreter
import System.Console.Haskeline

main :: IO ()
main = runInputT defaultSettings (loop newInterpreter)
  where 
    loop :: Interpreter -> InputT IO ()

Perigord-Kleisli

{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE TupleSections #-}
module Main (
  main
  ) where

import Text.Megaparsec hiding (match)
import Text.Megaparsec.Char
import Data.Void
import Control.Monad

Perigord-Kleisli

use std::collections::HashMap;

trait Functor<T, U> {
    type Out;

    fn fmap<F: 'static>(self, f: F) -> Self::Out
    where
        F: FnOnce(&T) -> U + Clone;
}