sgf-dma’s gists

sgf-dma / unmarshal-to-interface.hs

Created December 18, 2024 18:44

	{-# LANGUAGE ViewPatterns #-}

	import Data.List

	-- Here is Haskell equivalent of unmarshaling json to interface in Go. See
	-- corresponding Go file for full Go code.

	-- I'll use regular 'Show' and 'Read' instances instead of marshaling to/from
	-- json. 'Show' instance will be required during creation of values of 'Rx'
	-- types. But it's actually does not matter, where to require it or require or

sgf-dma / unmarshal-to-interface.go

Last active December 18, 2024 18:39


	package main

	import (
	"fmt"
	"encoding/json"
	"reflect"
	)

	// Unmarshal json to a struct containing interface field. See full

sgf-dma / home-deck-.var.mount

Created September 13, 2024 22:52

Systemd unit for steamdeck for mounting directory from sdcard on ~/.var . So, all flatpacks data will be on sdcard.

	[Unit]
	Description=Offload /home/deck/.var/app/
	[email protected]
	[email protected]
	[Mount]
	What=/run/media/mmcblk0p1/deck/.var/
	Where=/home/deck/.var/
	Type=none
	Options=bind,nofail
	[Install]

sgf-dma / cont.go

Created August 30, 2024 14:52

Haskell's Cont implementation in go with reversing slice as an example.


	package main

	import (
	"fmt"
	)

	// newtype Cont r a = Cont ((a -> r) -> r)
	type Cont[Result any, A any] func(func(A) Result) Result

sgf-dma / revCpsGen.go

Created August 26, 2024 17:44

revCps.go version with generics.


	package main

	import "fmt"

	// Haskell: data R a = R (R a) \| E a
	type R [Result any] func() (R[Result], Result)

	// Haskell: Cont (R Result) T
	type Cont [T any, Result any] func(T) (R[Result], Result)

sgf-dma / revCps.go

Last active August 30, 2024 14:58

cps version of function reversing slice compared with Haskell's revCps.hs

sgf-dma / revCps.hs

Created August 21, 2024 21:28

cps version of 'reverse' for comparison with Go version in revCps.go.


	import Control.Monad.Trans.Cont
	import Data.Function

	data R a = R (R a) \| E a

	-- This function is called from 'shift' and 'shift' returns immediately
	-- (without calling further continuation) because result is already here - 'R'
	-- value. Continuation 'k' will be called later, when evaluation of returned
	-- 'R' value is forced in 'run'.

sgf-dma / gist:1bc20722e57ebfc7ee8629b2a877209d

Created January 14, 2024 15:10

race tester

	package main

	import (
	"fmt"
	"sync"
	"net/http"
	"bytes"
	)

	func worker(i int, ch <-chan interface{}) {

sgf-dma / gist:22d1dc6969c538129504bd0d5463c6dc

Created November 27, 2023 19:06

	#include <iostream>
	#include <string>
	#include <vector>
	#include <algorithm>
	#include <Windows.h>

	using namespace std;

	vector<string> splitToBlocks(const string& text, size_t blockSize) {
	vector<string> blocks;

sgf-dma / test.timer

Last active May 24, 2023 08:31

	# cat /etc/systemd/system/test.timer
	[Timer]
	OnCalendar=
	OnCalendar=--* ::00
	RandomizedDelaySec=0

	Unit=test.target

	[Install]
	Also=test.target