Skip to content

Instantly share code, notes, and snippets.

beads 1 program vslice
var g : a_date
calc main_init
loom_timer(do_tick, delay:0 sec, interval:1 sec, reps:INFINITY)
calc do_tick
merge seconds_to_date() ===> g
@guaracy
guaracy / day01.pas
Created December 3, 2023 18:53
day01
PROGRAM day01;
{$mode objfpc}{$H+}
USES
StrUtils,
SysUtils,
uSuporte;
CONST
@guaracy
guaracy / bf.red
Created August 16, 2024 05:58
BF em 23 linhas (legível)
Red []
bf: function [prog][
size: 30000
cells: make string! size
append/dup cells null size
parse prog [
some [
">" (cells: next cells)
| "<" (cells: back cells)
| "+" (cells/1: cells/1 + 1)