Skip to content

Instantly share code, notes, and snippets.

Gregor ggb

Block or report user

Report or block ggb

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View Philosophie.ipynb
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View band_paths.pl
:- use_module(library(semweb/rdf_db)).
:- use_module(library(semweb/rdf_http_plugin)).
load_band(A, S) :-
rdf_load(A, [format(xml)]),
findall(B, (rdf(A,'http://dbpedia.org/ontology/associatedBand',B)), L1),
findall(C, (rdf(C,'http://dbpedia.org/ontology/associatedBand',A)), L2),
append(L1, L2, S).
load_bands(_, _, _, 500) :-
View frequency.erl
%% Based on code from
%% Erlang Programming
%% Francecso Cesarini and Simon Thompson
%% O'Reilly, 2008
%% http://oreilly.com/catalog/9780596518189/
%% http://www.erlangprogramming.org/
%% (c) Francesco Cesarini and Simon Thompson
-module(frequency).
-export([start/0,allocate/0,deallocate/1,stop/0,clear/0]).
@ggb
ggb / DecodeUnionType.elm
Created Mar 29, 2017
How to decode union types in Elm
View DecodeUnionType.elm
import Html exposing (text)
import Json.Decode exposing (..)
type Status
= Done
| Open
| Failed
@ggb
ggb / sicp44.dl
Created Mar 21, 2017
Database and solutions from "Structure and Interpretation of Computer Programs", Chapter 4.4
View sicp44.dl
#lang datalog
town(ben, slumerville).
street(ben, ridge_road).
str_number(ben, 10).
department(ben, computer).
position(ben, guru).
salary(ben, 60000).
town(alyssa, cambridge).
@ggb
ggb / assignment2.erl
Created Mar 1, 2017
Functional Programming in Erlang - Second Assignment
View assignment2.erl
-module(assignment2).
-export([index/1]).
% test the code by calling
% assignment2:index("gettysburg-address.txt").
% assignment2:index("dickens-christmas.txt").
clean_line([], C) ->
lists:reverse(C);
@ggb
ggb / assignment1.erl
Created Feb 27, 2017
Functional Programming in Erlang - First Assignment
View assignment1.erl
-module(assignment1).
-export([bits/1, area/1, perimeter/1, enclose/1, bits_rec/1]).
% Shapes
% How the shapes are defined:
% circle: {circle, {x, y}, r}
% rectangle: {rectangle, {x1, y1},{x2, y2}}
% triangle: {triangle, {x1, y1}, A, B, C}
area({circle, {_X, _Y}, R}) ->
@ggb
ggb / Table.html
Last active Feb 5, 2017
Endless scrolling table...
View Table.html
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>lazy table</title>
<link rel="stylesheet" href="style.css">
<script src="https://cdnjs.cloudflare.com/ajax/libs/underscore.js/1.8.3/underscore-min.js"></script>
</head>
<body>
<table id="lazyTable"></table>
@ggb
ggb / sw_query.rkt
Created Oct 9, 2016
How to query the SWAPI (Star Wars API) with racket
View sw_query.rkt
#lang racket
(require json)
(require net/url)
(define (get url)
(call/input-url (string->url url)
(curry get-pure-port #:redirections 4)
port->string))
View Types.elm
import Html exposing (text)
type alias T = {name: String}
type alias R b = {b | name: String, age: Float}
type alias S a = {a | name: String}
type alias Q = {age: Float}
You can’t perform that action at this time.