Skip to content

Instantly share code, notes, and snippets.

avar /
Last active Mar 2, 2021
Calculate your income in The Netherlands with and without a 30% ruling.
# To check if this is up-to-date with the tax rates go to
# and see if there's anything
# newer there.
# I make no guarantees that any of this is correct. I calculated this
# at the time and have been updating it when new tax rates come along
# because people keep finding this useful.
# There's also an interactive JS version of this created by
# @stevermeister at
andelf / beam_decompile.erl
Created Mar 19, 2013
Erlang BEAM file decompile to .erl file
View beam_decompile.erl
#!/usr/bin/env escript
% -*- mode: erlang -*-
main([BeamFile]) ->
{ok,{_,[{abstract_code,{_,AC}}]}} = beam_lib:chunks(BeamFile,[abstract_code]),
io:fwrite("~s~n", [erl_prettypr:format(erl_syntax:form_list(AC))]).
bryanhunter /
Last active Oct 26, 2019
Build Erlang 17.0 on a fresh Ubuntu box (tested on 12.04 and 14.04)
# Pull this file down, make it executable and run it with sudo
# wget
# chmod u+x
# sudo ./
if [ $(id -u) != "0" ]; then
echo "You must be the superuser to run this script" >&2
exit 1
Red [
Title: ""
Author: ["Gregg Irwin" "Steeve"]
Purpose: {
Factor style fry combinators in Red
works somewhat like a reverse collect/keep
Red [
Title: "Conway's Game of Life"
Needs: 'View
system/view/auto-sync?: no
grid: collect [repeat i 50 [keep/only collect [repeat j 50 [keep random true]]]]
scratchgrid: collect [repeat i 50 [keep/only collect [repeat j 50 [keep false]]]]
a: copy grid/1
b: copy grid/50
DideC /
Last active Jan 30, 2017
Heart animation for Red (only). New parameters added to the (reordered) control panel to play with the animation + credits. Nice time eater ;-)
Red [
title: "Heart animation"
author: "Didier Cadieu"
notes: {
Traduction in Red of Terebus Volodymyr javascript demo :
Needs: View
;*** Settings
greggirwin /
Created Mar 25, 2017
Small GUI experiment for showing datatype information.
Red []
form-all: func [blk][
forall blk [blk/1: form blk/1]
types-of: function [value [typeset!]][
; typesets don't support reflection
third load mold value
rebolek /
Created May 15, 2017
Simple tool to show how faces work
Red []
inc-value: func [
/local value rate
] [
unless face/extra [face/font/color: 255.255.255]
overflow?: false
toomasv /
Last active Apr 16, 2021
To get info about any function
Red []
context [
get-function: function [path] [
if path? path [
path: copy path
while [
not any [
tail? path
any-function? attempt [get/any either last? path [path/1] [path]]
toomasv /
Last active Feb 21, 2019
Experiments with L-System
Red [
Author: "Toomas Vooglaid"
Date: 25-9-2017
Description: {Experiments with L-System}
Last-update: 26-9-2017
Uses: {}
context [
ctx: self