Skip to content

Instantly share code, notes, and snippets.

View guibou's full-sized avatar
πŸ›©οΈ
Diving in a sky full of escaped skolems

Guibou guibou

πŸ›©οΈ
Diving in a sky full of escaped skolems
  • Saint-Paul - Reunion - France
  • 07:36 (UTC +04:00)
View GitHub Profile
{-
Functionality:
- Read all folders and sub-folders with structure like below
- store all folder and file info in State monad,
- at the end of the loop, print it.
β”œβ”€β”€ aaa
β”‚ β”œβ”€β”€ b
β”‚ β”‚ β”œβ”€β”€ b1
β”‚ β”‚ β”‚ β”œβ”€β”€ b1-1
β”‚ β”‚ β”‚ └── b1-2
@guibou
guibou / DFA.hs
Created November 30, 2017 12:59 — forked from anonymous/DFA.hs
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE OverloadedStrings #-}
module DFA where
import qualified Data.Map.Strict as Map
import Data.Map (Map)
import qualified Data.Set as Set
{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE TypeApplications #-}
module NumberDispath where
data Number
= DoubleNum !Double