All gists from capitalex

capitalex / DOESNT Fibonacci

0 curtidas

0 bifurcações

1 arquivos

Última atividade 2 days ago

An implementation of the fibonacci in DOESNT by Floozutter

1	give a < > b
2	unless
3	[ , b , c , < , > , ]
4	, a a !! , a c !! , a < !! , a ] !!
5	, a b b , a b ] ;
6
7	give < c b
8	unless
9	[ , b , c , < , > , ]
10	, a a !! , a b !! , a c !! , a ] !!

capitalex / coroutines.ml

0 curtidas

0 bifurcações

1 arquivos

Última atividade 4 days ago

1	open Effect
2	open Effect.Deep
3
4	type _ Effect.t += Yield : unit t
5
6	type status =
7	\| Complete
8	\| Suspended of (unit, status) continuation
9
10	let start (f : unit -> unit) : status =

capitalex / update_grid.ml

0 curtidas

0 bifurcações

1 arquivos

Última atividade 1 week ago

1	let update_grid () =
2	let next_grid = empty_grid () in
3	for y = 0 to 9 do
4	for x = 0 to 9 do
5	next_grid.(y).(x) <- next_state x y
6	done
7	done;
8	grid := next_grid ;;

capitalex / ribbons.ml

0 curtidas

0 bifurcações

1 arquivos

Última atividade 2 weeks ago

1	type open_ribbon = [`Open of int]
2	type looped_ribbon = [`Looped]
3	type ribbon =
4	[
5	\| `Open of int
6	\| `Looped
7	]
8
9	let tie a b : ribbon =
10	match a, b with

capitalex / snarl.factor

0 curtidas

0 bifurcações

1 arquivos

Última atividade 2 weeks ago

1	! Copyright (C) 2023 and Null
2	! This mine and only mine all rights reserved >:3c
3	USING: accessors assocs assocs.extras combinators
4	combinators.short-circuit command-line continuations debugger
5	html.elements io io.directories io.encodings.utf8 io.files
6	io.files.info io.pathnames io.streams.string kernel literals
7	namespaces sbufs sequences sequences.deep sets sorting splitting
8	strings unicode xml xml.data xml.state xml.traversal xml.writer
9	;
10	FROM: namespaces => set ;

capitalex / joyful.ml

0 curtidas

0 bifurcações

1 arquivos

Última atividade 2 weeks ago

1	(*
2	1 2 + print-int
3	*)
4
5	let rec skip_whitespace chars =
6	let open Seq in
7	match chars () with
8	\| Cons (' ', rest) \| Cons ('\t', rest) \| Cons ('\n', rest) ->
9	skip_whitespace rest
10	\| _ ->

capitalex / properties.ml

0 curtidas

0 bifurcações

1 arquivos

Última atividade 2 weeks ago

1	module Univ = struct
2	type t = ..
3	let id =
4	let id = ref 0 in
5	fun () ->
6	incr id ;
7	!id
8
9	module Embed (M : sig type t end) = struct
10	type t += E of M.t

capitalex / simple-object.lua

0 curtidas

0 bifurcações

1 arquivos

Última atividade 2 weeks ago

1	return function(animation, x, y)
2	local object = {
3	x = x
4	, y = y
5	, frame = 0
6	, animation = animation
7	, grabbed = false
8	}
9	function object:draw()
10	if mouseIsPressed and not taken and self:contains(mouseX, mouseY) and not self.grabbed then

capitalex / andpile

0 curtidas

0 bifurcações

1 arquivos

Última atividade 3 weeks ago

1	#!/usr/bin/env bash
2
3	if [[ ! -d "$HOME/.andpile" ]]; then
4	mkdir "$HOME/.andpile" ;
5	mkdir "$HOME/.andpile/data" ;
6	touch "$HOME/.andpile/feeds.txt" ;
7	fi
8
9	remove_feed() {
10	sed -i.back "$(($1 + 1))d" "$HOME/.andpile/feeds.txt" ;

capitalex / cat.cr

0 curtidas

0 bifurcações

1 arquivos

Última atividade 3 weeks ago

1	macro concat(*values)
2	{% top = -1 %}
3	{% for value, i in values %}
4	{% if value.is_a? ProcLiteral %}
5	{% new_top = top - value.args.size + 1 %}
6	%var{new_top} = {{value}}.call({% for arg, j in value.args %}
7	%var{top - (value.args.size - j - 1)},
8	{% end %})
9	{% top = new_top %}
10	{% elsif value.is_a? Call %}