Fogus fogus

💭

attempting to learn how to better learn

fogus / char.py

Last active February 10, 2022 18:13

	import random

	class Die:
	def __init__(self, n):
	self.sides = n

	def roll(self):
	return random.randint(1, self.sides)

	dice = [Die(6), Die(6), Die(6)]

fogus / mh.clj

Last active February 10, 2022 19:11

	(import (java.lang.invoke MethodHandles
	MethodHandles$Lookup
	MethodType
	MethodHandle))

	(def ^MethodHandle abs-handle (.findStatic (MethodHandles/lookup)
	Math
	"abs"
	(MethodType/methodType Long/TYPE Long/TYPE)))

fogus / basicinterpreter.lisp

Created January 19, 2022 13:03 — forked from lispm/basicinterpreter.lisp

Basic Interpreter, sectorlisp example translated to Common Lisp

	; source https://github.com/woodrush/sectorlisp-examples/blob/main/lisp/basic.lisp
	; Common Lisp translation: [email protected], 2022
	; https://gist.github.com/lispm/a2f56a1a6dc5599a039eb7134d99cd4a

	(defun basic-example ()
	(BASICINTERPRETER
	(QUOTE (
	(10 REM FIND AND PRINT PRIME NUMBERS BELOW N_MAX. )
	(20 LET N_MAX = (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) )
	(30 LET I = (1 1) )

fogus / define.lisp

Created January 13, 2022 16:33

	;; LISP-2 acting like LISP-1 (by Ron Garrett)

	(defmacro define (name&args &body body)
	(let ((name (car name&args))
	(args (cdr name&args)))
	`(defun ,name ,args
	(flet ,(mapcar (lambda (arg) `(,arg (&rest args) (apply ,arg args)))
	args)
	,@body))))

fogus / Makefile

Created January 10, 2022 12:30 — forked from typeswitch-dev/Makefile

a forth interpreter – https://twitter.com/typeswitch/status/1475806903481638912?s=20

	CFLAGS=-std=c99 -pedantic -Wall -Werror
	.PHONY: run forth

	run: forth
	./forth test.fs

	forth: forth.c
	$(CC) $(CFLAGS) -o forth forth.c

fogus / daiyon.c

Created January 10, 2022 12:30 — forked from typeswitch-dev/daiyon.c

第四 (Daiyon) — a Japanese & Forth inspired postfix language

	#include <stdio.h>
	#include <string.h>
	#include <assert.h>
	FILE in; long M[1<<24]={0}, D, *R, H=0x130000, IP=0, T;
	long getu() { long t, h = getc(in); if (h < 0xC0) return h;
	t = ((h&0x1F) << 6) \| (getc(in) & 0x3F); if (h < 0xE0) return t;
	t = ( t << 6) \| (getc(in) & 0x3F); if (h < 0xF0) return t;
	t = ( t << 6) \| (getc(in) & 0x3F); return t & 0x1FFFFF; }
	void putu(long c) { if (c < 0x80) { putchar(c); return; }
	if (c < 0x7FF) { putchar(0xC0\|(c>>6)); } else {

fogus / de.java

Created January 5, 2022 14:41

	// v is vector testing equiv
	// obj is RHS operand, potentially infinite seq

	else if(obj instanceof List)
	{
	Collection ma = (Collection) obj;

	if(ma instanceof Counted)
	if(ma.size() != v.count())
	return false;

fogus / TinyForth.ino

Created January 3, 2022 15:14 — forked from monsonite/TinyForth.ino

A Tiny Forth for Arduino - adapted from code from T. NAKAGAWA

	// Tiny FORTH by T. NAKAGAWA 2004/07/04-10,7/29,8/5-6

	/*
	Tiny FORTH
	Experimental Forth for Arduino
	T. Nakagawa
	2004/07/10
	*/

	#include <stdio.h>

fogus / spec-moar.clj

Last active November 16, 2021 14:22

	(defn- spec-checking-fn
	"Takes a function name, a function f, and an fspec and returns a thunk that
	first conforms the arguments given then calls f with those arguments if
	the conform succeeds. Otherwise, an exception is thrown containing information
	about the conform failure."
	[fn-name f fn-spec]
	(let [fn-spec (@#'s/maybe-spec fn-spec)
	conform! (fn [fn-name role spec data args]
	(let [conformed (s/conform spec data)]
	(if (= ::s/invalid conformed)

fogus / spec.clj

Created October 27, 2021 15:57