ocramz’s gists

ocramz / Recursion.hs

Last active June 1, 2025 07:55

Recursion schemes in one page, no dependencies

	{-# language DeriveDataTypeable #-}
	{-# language FlexibleContexts #-}
	{-# language StandaloneDeriving #-}
	{-# language TypeOperators #-}
	{-# LANGUAGE UndecidableInstances #-}
	{-# language TypeFamilies #-}
	module Data.Recursion where

	import Data.Data (Data)
	import Data.Functor.Classes (Read1(..), Show1(..), Eq1(..), Ord1(..), Show1(..), compare1, eq1, showsPrec1, readsPrec1)

ocramz / aws-ec2-cuda118-ubuntu2204.sh

Created July 7, 2023 12:20

Setup CUDA 11.8 drivers, miniconda and pytorch on Ubuntu 22.04 on AWS EC2

	#!/bin/bash

	apt update
	apt -y install build-essential # install GCC
	apt -y install --reinstall software-properties-common # enable add-apt-repository
	apt-get -y install lshw
	apt-get clean

	export DISTRO_UBUNTU=ubuntu2204/x86_64

ocramz / URIDecoding.hs

Created April 23, 2023 12:26

decoding URI-encoded strings in Haskell

	import Data.Bits ((.\|.),(.&.),shiftL)
	import Data.Char (chr, isHexDigit, digitToInt)
	import Data.Text (Text, pack, unpack)

	{-
	sources :

	uri-encode (https://hackage.haskell.org/package/uri-encode-1.5.0.7/docs/src/Network.URI.Encode.html#decodeText)

	network-uri (https://hackage.haskell.org/package/network-uri-2.6.4.2/docs/src/Network.URI.html#unEscapeString)

ocramz / get_highlighted_text.html

Last active November 3, 2022 21:05

Get highlighted text (Firefox, Chrome but not on IE)

	<!DOCTYPE html>
	<html>
	<body>

	Select some text below and then click the button:<br/>
	<textarea id="myText" rows="5" cols="60" onselect="alert(getTextSelection())">
	Lorem ipsum dolor sit amet,
	consectetur adipiscing elit.
	</textarea>

ocramz / server-sent-events.html

Created February 4, 2021 23:30

	<!DOCTYPE html>
	<html>
	<head>
	{{>head}}
	{{#user}}
	<title>Back {{name}} checkout \| satsbacker</title>
	{{/user}}
	</head>
	<body>
	{{>header}}

ocramz / server-sent-events.hs

Created February 4, 2021 23:26

	{-# LANGUAGE RecordWildCards #-}
	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE ScopedTypeVariables #-}
	{-# LANGUAGE BangPatterns #-}

	module Invoicing
	( invoiceRoutes
	, newInvoice
	, waitInvoices
	) where

ocramz / histograms-vega.json

Created March 1, 2019 15:54

Multiple histograms in `vega`, colour-coded by a feature

	{
	"$schema": "https://vega.github.io/schema/vega/v5.json",
	"width": 200,
	"height": 200,
	"padding": 5,
	"data": [
	{
	"name": "d1",
	"values": [
	{"a": 0, "c": "2.5", "z": 0},

ocramz / scatterplot-over-heatmap-vega.json

Last active January 13, 2020 08:41

Overlay a scatterplot on top of a heatmap in `vega`

	{
	"$schema": "https://vega.github.io/schema/vega/v5.json",
	"width": 200,
	"height": 200,
	"padding": 5,
	"data": [
	{
	"name": "d1",
	"values": [
	{"a": 0, "b": 0, "c": "36.5"},

ocramz / records-to-lists.hs

Last active January 14, 2019 11:08

	import qualified GHC.Generics as G

	-- \| generics-sop
	import Generics.SOP
	import Generics.SOP.NP (collapse_NP)


	-- \| Python in Haskell yay!
	--
	-- Example :

ocramz / comonad-graph.md

Created January 13, 2017 10:27 — forked from luciferous/comonad-graph.md

layout	title	date	comments	author	categories	commentIssueId
post	A comonad of graph decompositions	2016-04-02 13:02:54 -0400	true	Rúnar	scala comonads	22

Marco Z ocramz