sordina

{-# LANGUAGE TupleSections #-}
{-# LANGUAGE FlexibleInstances #-}

-- See also: https://github.com/sordina/non-orthogonal-kd-trees#non-orthogonal-kd-trees

module Main where

import Graphics.Gloss
import Graphics.Gloss.Raster.Field
import System.Random

sordina

-- Hello Agda Enthusiasts!

-- Let's play with Agda.

-- Firstly, since we're editing demo1A.agda, let's name our module correctly:

module demo1A where -- Load the file with C-c C-l - Like that!

-- Syntax is highlighted by Emacs

sordina

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE LambdaCase #-}

module Main where

import Data.AttoLisp
import Data.Graph.Inductive.Graph
import Data.Graph.Inductive.PatriciaTree
import Data.GraphViz

sordina

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE BlockArguments #-}

-- From: https://patchbay.pub
--
-- Normal Usage:
--   Shell 1: curl localhost:9000/test1
--   Shell 2: curl -s localhost:9000/test1 -X POST -T /dev/stdin
--
-- Pub-Sub Usage:

sordina

// http://journal.stuffwithstuff.com/2013/12/08/babys-first-garbage-collector/
//

#define STACK_MAX 256
#define INITIAL_GC_THRESHOLD 2

#include <stdio.h>
#include <stdlib.h>

void gc(); // Pre-Declared for co-recursive usage

sordina

{-# LANGUAGE BlockArguments #-}

module Main where

import Data.Char
import Data.List.Split

import qualified Data.Set

main :: IO ()

sordina

-- https://gist.github.com/sordina/ea8c66ddcc467f77b58b0af0b5628435

module Lib ( main ) where

import Data.Tree
import Data.List
import System.Environment

type Capacity = Int
type Level    = Int

sordina

# https://en.wikipedia.org/wiki/APL_syntax_and_symbols
# https://code.jsoftware.com/wiki/NuVoc
# https://news.ycombinator.com/item?id=8605606
#
#
# sub asterisk by multiply;

#  Roll    ?B
#  Ceiling ⌈B >.
sub greater period by uni2308;

sordina

#!/bin/sh

if  [ ! "$1" ]
then
  echo "Usage: ocr <image-file>"
  exit
fi

if [ "x$1" = "x-h" ]
then

sordina

module Main where

main :: IO ()
main = interact (unlines . map (go . read) . lines)

go :: Int -> String
go n = case term n
  of [] -> "nothing"
     [(x,"")] -> numb x
     xs -> unwords $ map item xs