Skip to content

Instantly share code, notes, and snippets.

Roman Müntener FMNSSun

Block or report user

Report or block FMNSSun

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
import bson
import datetime
import sys
import queue
import threading
import time
path = lambda x: x['path']
target = lambda x: x['target']
Last active Apr 12, 2016
Convert json array to newline separated
#- arr2nljson
# munt, 2016
# Reads in a JSON array and outputs new-line
# separated documents
import sys
FMNSSun / dfgen.hs
Created Nov 5, 2015
Program to generate Deadfish constants
View dfgen.hs
import Data.List
import System.Environment
sqrti :: Int -> Int
sqrti = floor . sqrt . fromIntegral
squ :: Int -> Int
squ x = x * x
FMNSSun / postfix.hs
Created Nov 4, 2015
Interpreter for simple postfix expressions
View postfix.hs
import Data.List
import Data.Char
import System.Environment
isOp :: String -> Bool
isOp x = x `isInfixOf` "+-*/"
isInt :: String -> Bool
isInt ('-':x:xs) = isInt (x:xs)
Last active Nov 4, 2015
Beam interpreter in Pyhton
import sys
if(len(sys.argv) < 5):
print 'Usage: ./ path <debug> <debugpoints> <memsize>'
print ' debug: on or off'
print ' debugpoints: ;-seperated list of coordinates (e.g. 0,9;0,2)'
print ' (use -1,-1 for none)'
FMNSSun / eso.hs
Last active Oct 18, 2015
Simple esolang. Full source code for
View eso.hs
import Text.ParserCombinators.Parsec
import Text.ParserCombinators.Parsec.Combinator
import Text.ParserCombinators.Parsec.Expr
import Text.ParserCombinators.Parsec.Token
import Data.Maybe
data Expression =
Loop [Expression]
| Literal Integer
You can’t perform that action at this time.