Skip to content

Instantly share code, notes, and snippets.

Fogus fogus

Block or report user

Report or block fogus

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
@fogus
fogus / pacman.c
Created Jun 20, 2012 — forked from eduardodx/pacman.c
Pacman
View pacman.c
#include <unistd.h> // lib para o delay => usleep()
#include <stdlib.h>
#include <time.h>
#include <ncurses.h>
#define H 25 // altura do mapa
#define W 42 // largura do mapa
#define UP 0
#define RIGHT 1
#define DOWN 2
#define LEFT 3
View LZ77.java
import java.io.*;
/**
* Class for performing LZ77 compression/decompression using text IO
*
* @author Mark Hall
* @version 1.0
*/
public class LZ77T {
public static final int DEFAULT_BUFF_SIZE = 1024;
View lz77.c
/* PROG1.C */
/* Simple Hashing LZ77 Sliding Dictionary Compression Program */
/* By Rich Geldreich, Jr. October, 1993 */
/* Originally compiled with QuickC v2.5 in the small model. */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
/* set this to 1 for a greedy encoder */
View tiny-prolog.js
/*
Copyright (c) 2007 Alessandro Warth <awarth@cs.ucla.edu> and Stephen Murrell <stephen@rabbit.eng.miami.edu>
Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
files (the "Software"), to deal in the Software without
restriction, including without limitation the rights to use,
copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following
@fogus
fogus / foo.lisp
Created Sep 11, 2012
Guy Steele's FOO language
View foo.lisp
;; Guy Steele's "FOO" language, as found on the ll1.mit.edu mailing list.
;; ----------------------------------------------------------------------
;; [He said..]
;; If you speak Common Lisp, you might find the following
;; bit of code illuminating. (If you speak Scheme but
;; not Common Lisp, then just delete or ignore all occurrences
;; of the strings "funcall " and "#'").
View mccarthy-eval.lisp
; A MICRO-MANUAL FOR LISP - NOT THE WHOLE TRUTH, 1978
; John McCarthy, Artificial Intelligence Laboratory, Stanford University
; https://www.ee.ryerson.ca/~elf/pub/misc/micromanualLISP.pdf
; https://github.com/jaseemabid/micromanual
; for CL : Rainer Joswig, joswig@lisp.de
; this version runs in a Common Lisp
@fogus
fogus / 0 - UNIX Fifth Edition
Created Jul 20, 2011
UNIX V5, OpenBSD, Plan 9, FreeBSD, and GNU coreutils implementations of echo.c
View 0 - UNIX Fifth Edition
main(argc, argv)
int argc;
char *argv[];
{
int i;
argc--;
for(i=1; i<=argc; i++)
printf("%s%c", argv[i], i==argc? '\n': ' ');
}
@fogus
fogus / enfield.rkt
Created Feb 19, 2013
The complete implementation of Enfield including interpreter, core library, IDE, compiler, web server and pictures of fish. Patches welcomed! http://blog.fogus.me/2013/01/21/enfield-a-programming-language-designed-for-pedagogy/
View enfield.rkt
#lang racket
@fogus
fogus / lisp_ch1.clj
Created Aug 15, 2012
Chapter 1 from Lisp in Small Pieces
View lisp_ch1.clj
(ns lisp-ch1)
(def self-evaluating?
(some-fn number? string? char?
true? false? vector?))
(defn -atom? [s]
(or (self-evaluating? s)
(symbol? s)))
You can’t perform that action at this time.