Aleksei Pirogov astynax

This machine uses two stacks: for data and for commands.

Each command can extend any of stacks.

Also the language provides a fold function that uses command stack manipulations for recursion.

Для запуска нужна только Babashka!

Установите, передайте .clj-файл в качестве аргумента (bb main.clj).

Когда сервер запустится, откройте http://localhost:8000 в браузере. Приложение работает!

	{-# LANGUAGE FlexibleContexts #-}

	module Main where

	import Control.Monad
	import Control.Monad.State
	import Data.Set

	main :: IO ()
	main = print $ solution (1, 1) == allBoard

	> mirror = map reverse
	> flip = reverse
	> beside x = zipWith (++) x x
	> above x = x ++ x
	> beside = zipWith (++)
	> above = (++)
	> sq x = let y = mirror x in above (beside x y) (beside y x)
	> display $ enlarge $ enlarge $ sq [" a", "b "]
	aaaaaaaa
	aaaaaaaa

	{-# LANGUAGE LambdaCase #-}
	{-# LANGUAGE BangPatterns #-}

	module Main where

	import Data.Char
	import Text.Parsec
	import Text.Parsec.String

	data Machine = Machine ![Int] !Int ![Int] deriving Show

	class Basic {
	data class Var(val name: String)

	class Let {
	infix fun BE(value: Any): Binding = TODO()
	}

	class Binding {
	infix fun MOD(other: Any): Binding = TODO()
	}

	import uuid

	from aiohttp import web


	CONTS = {}


	async def handle(request: web.Request) -> web.Response:
	k = request.query.get("cont")