Skip to content

Instantly share code, notes, and snippets.

View vendethiel's full-sized avatar

ven vendethiel

262 followers · 0 following
View GitHub Profile
@vendethiel
vendethiel / arrow.lisp
Created April 17, 2024 08:46
(defmacro -> (&rest form)
(reduce (lambda (xs x)
(if (consp x)
(append xs x)
(list x xs)))
form))
@vendethiel
vendethiel / list.md
Last active March 16, 2024 10:33 — forked from robotlolita/list.md
@vendethiel
vendethiel / modreports.php
Created August 28, 2013 08:43
<?php
/**
*
* @package Icy Phoenix
* @version $Id$
* @copyright (c) 2008 Icy Phoenix
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
*
*/
@vendethiel
vendethiel / xkcd.php
Created October 22, 2013 13:16
<?php
class XkcdParser
{
/* @var array $last Data of the latest comic */
private $last;
/* @var int $max Latest comic data ID */
private $max;
public function __construct()
@vendethiel
vendethiel / ruby.rb
Last active February 21, 2024 11:11
class RecordAddress
FIELDS = [:number, :country, :city_zip, :city_name, :street_name,
:latitude, :longitude, :geocoding_failed, :place_id]
BOOLEANS = [:geocoding_failed]
ASSOCIATIONS = [:place]
# @param [Object] object
# @param [Array] ary
def initialize(object, col)
@vendethiel
vendethiel / advanced-sql-stuff
Created February 14, 2018 15:29
Advanced SQL
<https://www.slideshare.net/MarkusWinand/modern-sql?ref=https://modern-sql.com/slides>
slide 3: `LATERAL`
slide 12: `GROUPING SETS`
slide 19: `WITH`
slide 45: `WITH RECURSIVE`
slide 71: `FILTER`
slide 75: `PARTITION BY`, `OVER` (/`OVER ORDER BY`)
slide 105: `WITHIN GROUP`
@vendethiel
vendethiel / czech.p6
Last active February 21, 2024 10:59
use v6;
# todo parse table somehow
say '<meta charset="UTF-8"><style>.elem { background-color: red; }</style>';
# Hard (d, h, ch, k, n, r, t)
# Soft (č, ř, š, ž, c, j, ď, ť, ň)
my @headers = <<
'Masculine Animate (Hard)'
'Masculine Inanimate (Hard)'
@vendethiel
vendethiel / example.p6
Last active February 21, 2024 10:58
func tag(x) {
return func show(n) {
say("hello: " ~ x ~ "!");
}
}
say("[ simple test ]");
my node = quasi { say(""); };
walk(node, [
#[Q, tag("Q")],
@vendethiel
vendethiel / hoggla.scala
Last active February 21, 2024 10:54
sealed trait Type {}
case class BuiltinType(t: String) extends Type {
override def toString = t
}
case class UnknownType(name: String) extends Type {
override def toString = name
}
case class FunctionType(from: Type, to: Type) extends Type {
override def toString: String = {
val fromS = from.toString
@vendethiel
vendethiel / reify.ts
Created April 7, 2022 11:46
https://www.typescriptlang.org/play?target=8#code/C4TwDgpgBA6glsAFgaQiAPAFShAHsCAOwBMBnKAewCMArCAY2ABopkd8iypTgAnOQgHMAfFAC8UAEoMKvYumQse-IaIBkUTAG4AUDvoAbAIalyABSO9SEAPK0GwLOwIly1Oo1EBvHVD9QwAFcqAzh6KHoKQmVAxlkACjB+ADcjAgDLYFIALih4gGs0CgAzTQBKAG0AXTKoH38oAF89BqCQsKgjYnk2PBcuZQERAtzkMtyLK1t7RnR4JFQMTBZkYW9fBv9I6OAM3izcgqLS+ZQ0LBXhSqrxKAqAOkekOFJ…
type WithKey<T extends object, K extends string> = Record<K, string> & T;
class ParseObject<T extends object> {
public constructor(private parts: (keyof T)[]) {
}
public add<K extends string>(k: K): ParseObject<WithKey<T, K>> {
const parts: (keyof WithKey<T, K>)[] = [...this.parts, k];
return new ParseObject<WithKey<T, K>>(parts);
}