diff --git a/2005/mikeash/.gitignore b/2005/mikeash/.gitignore new file mode 100644 index 000000000..e99792737 --- /dev/null +++ b/2005/mikeash/.gitignore @@ -0,0 +1 @@ +mikeash diff --git a/2005/mikeash/Makefile b/2005/mikeash/Makefile index 060c0439e..e804b2094 100644 --- a/2005/mikeash/Makefile +++ b/2005/mikeash/Makefile @@ -1,16 +1,328 @@ -C99=--std=c99 +#!/usr/bin/env make +# +# IOCCC 2005 winning entry - mikeash -build: mikeash +################################################################################ +# +# Regarding individual entries: +# +# IOCCC winning entry code may not work on your system. Even with standards, +# conditions and build environments change, especially when it comes to more +# extreme code such you might find in an IOCCC winner. Moreover, what was +# allowed and liked in one IOCCC contest may no longer be liked/allowed in +# later IOCCC years. +# +# Corrections on winning author and fixing typos in remarks are VERY WELCOME. +# +# GitHub pull requests are welcome: +# +# If you have a patch that might make running an entry work in modern Unix-like +# environments, please create a GitHub pull request for the IOCCC judges to +# consider. +# +# Suggestions and corrections regarding Makefiles, winning author information, +# fixing typos in remarks, and code patches are welcome via opening a GitHub +# issue or better yet, by creating a GitHub pull request for the IOCCC judges +# to consider. To form a GitHub issue or GitHub pull, please visit: +# +# https://github.com/ioccc-src/winner +# +################################################################################ +# This work by Landon Curt Noll and Leonid A. Broukhis is licensed under: +# +# Creative Commons Attribution-ShareAlike 3.0 Unported License. +# +# See: http://creativecommons.org/licenses/by-sa/3.0/ + + +############################# +# shell used by this Makefile +############################# +# +SHELL= bash + +####################### +# common tool locations +####################### +# +include ../../var.mk + +# Set X11_LIBDIR to the directory where the X11 library resides +# +#X11_LIBDIR= /usr/X11R6/lib +#X11_LIBDIR= /usr/X11/lib +X11_LIBDIR= /opt/X11/lib + +# Set X11_INCLUDEDIR to the directory where the X11 include files reside +# +#X11_INCDIR= /usr/X11R6/include +#X11_INCDIR= /usr/X11/include +X11_INCDIR= /opt/X11/include + +# Common C compiler warnings to silence +# +#CSILENCE= +CSILENCE= -Wno-error -Wno-implicit-function-declaration -Wno-extra-semi \ + -Wno-unknown-escape-sequence -Wno-unused-variable + +# Common C compiler warning flags +# +#CWARN= ${CSILENCE} +#CWARN= -Wall ${CSILENCE} +#CWARN= -Wall -Wextra ${CSILENCE} +CWARN= -Wall -Wextra -pedantic ${CSILENCE} + +# Compiler standard +# +#CSTD= +#CSTD= -ansi +CSTD= -std=gnu99 + +# Compiler bit architecture +# +# Some entries require 32-bitness: +# ARCH= -m32 +# +# Some entries require 64-bitness: +# ARCH= -m64 +# +# By default we assume nothing: +# +ARCH= + +# Defines that are needed to compile +# +CDEFINE= +#CDEFINE= -DIOCCC + +# Include files that are needed to compile +# +CINCLUDE= +#CINCLUDE= -include stdlib.h +#CINCLUDE= -include stdio.h +#CINCLUDE= -include stdlib.h -include stdio.h +#CINCLUDE= -I ${X11_INCDIR} -I ${X11_INCDIR}/X11 +#CINCLUDE= `${SDL2_CONFIG} --cflags` + +# Optimization +# +# Most compiles will safely use -O2. Some can use only -O1 or -O. +# A few compilers have broken optimizers or this entry make break +# under those buggy optimizers and thus you may not want anything. +# Reasonable compilers will allow for -O3. +# +#OPT= +#OPT= -O +#OPT= -O1 +#OPT= -O2 +OPT= -O3 + +# Default flags for ANSI C compilation +# +CFLAGS= ${CSTD} ${CWARN} ${ARCH} ${CDEFINE} ${CINCLUDE} ${OPT} + +# Libraries needed to build +# +LIBS= +#LIBS= -lm +#LIBS= -L ${X11_LIBDIR} -lX11 +#LIBS= `${SDL2_CONFIG} --libs` + +# C compiler to use +# +CC= cc +#CC=clang +#CC=gcc + +# Compiler add-ons or replacements for clang only +# +ifeq ($(CC),clang) +# +CSILENCE+= -Wno-format-nonliteral -Wno-implicit-int-conversion -Wno-missing-prototypes \ + -Wno-missing-variable-declarations -Wno-poison-system-directories \ + -Wno-shorten-64-to-32 +# +CWARN+= -Weverything +# +endif + +# Specific add-ons or replacements for gcc only +# +ifeq ($(CC),gcc) +# +#CSILENCE+= +# +#CWARN+= +# +endif + + +############################## +# Special flags for this entry +############################## +# +ENTRY= mikeash +PROG= ${ENTRY} +# +OBJ= ${PROG}.o +DATA= +TARGET= ${PROG} +# +ALT_OBJ= +ALT_TARGET= + + +################# +# build the entry +################# +# +all: data ${TARGET} + @${TRUE} + +.PHONY: all alt data everything clean clobber install \ + love haste waste maker easter_egg sandwich \ + supernova deep_magic magic charon pluto + +${PROG}: ${PROG}.c + ${CC} ${CFLAGS} $< -o $@ ${LIBS} + +# alternative executable +# +alt: data ${ALT_TARGET} + @${TRUE} + +# data files +# +data: ${DATA} + @${TRUE} + +# both all and alt +# +everything: all alt + + +############### +# utility rules +############### +# clean: - -clobber: - -rm mikeash + ${RM} -f ${OBJ} ${ALT_OBJ} + @-if [ -f indent.c ]; then \ + echo ${RM} -f indent.c; \ + ${RM} -f indent.c; \ + fi -mikeash: mikeash.c - ${CC} ${CFLAGS} ${C99} ${LDFLAGS} $< -o $@ +clobber: clean + ${RM} -f ${TARGET} ${ALT_TARGET} + @-if [ -e sandwich ]; then \ + ${RM} -f sandwich; \ + echo 'ate sandwich'; \ + fi -alt: +install: + @echo "Dr. Spock says that is not logical!" + @${TRUE} -data: +# you may be able to misunderstand the source by reading indent.c +# +indent.c: ${PROG}.c + @if which "${GINDENT}" >/dev/null 2>&1; then \ + echo ${RM} -f $@; \ + ${RM} -f $@; \ + echo "${GINDENT} < $< > $@"; \ + ${GINDENT} < $< > $@; \ + elif which "${INDENT}" >/dev/null 2>&1; then \ + echo ${RM} -f $@; \ + ${RM} -f $@; \ + echo "${INDENT} < $< > $@"; \ + ${INDENT} < $< > $@; \ + else \ + echo "no intent tool found, ident $< yourself, sorry"; \ + echo "exit 1"; \ + exit 1; \ + fi + +################## +# 133t hacker rulz +################## +# +love: + @echo 'not war?' + @${TRUE} + +haste: + $(MAKE) waste + @${TRUE} + +waste: + @echo 'haste' + @${TRUE} + +maker: + @echo 'Participate in a maker faire' + @${TRUE} + +easter_egg: + @echo "you expected to often misunderstand this $${RANDOM} magic" + @echo "chongo '' /\\oo/\\" + @echo "Eggy" + +sandwich: easter_egg + @if [ `id -u` -eq 0 ]; then \ + echo 'Okay.'; \ + echo "$${RANDOM}`date +%s`$${RANDOM}" > $@; \ + else \ + echo 'What? Make it yourself.'; \ + exit 1; \ + fi + +# Understand the history of the Homebrew Computer Club +# as well as the West Coast Computer Faire and +# you might be confused different. :-) +# +supernova: sandwich + @-if [ -r .code_anal ]; then \ + ${RM} -f .code_anal_v6; \ + else \ + echo "planet deniers, like some members of the IAU, are so cute when they try to defend their logic"; \ + fi + @echo "A $@ helps ${MAKE} the elements that help form planets" + @${TRUE} + +deep_magic: supernova + @-if [ -r .code_anal ]; then \ + ccode_analysis --deep_magic 7889066cdbdf09b0408021754586e895be641cc9be29e7eafd3ca65359541f17 \ + --FNV1a_hash_512_bit -v2 "${PROG}" "${PROG}.c"; \ + else \ + echo "Wrong! Do it again!"; \ + sleep 2; \ + echo "Wrong! Do it again!"; \ + sleep 2; \ + echo "Wrong! Do it again!"; \ + fi + @${TRUE} + +magic: deep_magic + @-if [ -r .code_anal ]; then \ + ccode_analysis --level 20003 --mode 5717175 --FNV1a_hash_512_bit -v2 "${PROG}" "${PROG}.c"; \ + else \ + echo "If you don't eat yer meat, you can't have any pudding!"; \ + echo "How can you have any pudding if you don't eat yer meat?!"; \ + fi + @${TRUE} + +# The IOCCC resident astronomer states +# +charon: magic + @echo "$@ is a dwarf planet" + @echo "dwarf is a type of planet" + @echo "therefore IAU, $@ is a planet" + +pluto: charon + ${MAKE} charon + @echo "$@ is a dwarf planet" + @echo "dwarf is a type of planet" + @echo "therefore, $@ is a planet" + @echo "having lots of planets is good feature because supernovae can help ${MAKE} a lot of them" diff --git a/2005/mikeash/README.md b/2005/mikeash/README.md index a198e59cf..e63ec23c9 100644 --- a/2005/mikeash/README.md +++ b/2005/mikeash/README.md @@ -1,10 +1,29 @@ # Best use of parenthesis -Michael Ash -USA -mike@mikeash.com + Michael Ash + USA + mike@mikeash.com -## Judges' comments +# To build: + +```sh +make +``` + +### To run: + +```sh +./mikeash +``` + +### Try: + +```sh +./mikeash < mikeash.c +./mikeash < mikeash.c | diff - mikeash.c +``` + +## Judges' comments: Having problems speaking code? Do you LISP? Parenthetically speaking, this entry takes advantage of C99 features, while @@ -12,16 +31,7 @@ speaking parenthetically. Best of all, it self-reproduces! John McCarthy might not of imagined it quite like this! :-) -### To build - - gcc --std=c99 -o mikeash mikeash.c - -### To run - - mikeash < mikeash.c - mikeash < mikeash.c | diff - mikeash.c - -## Author's comments +## Author's comments: This program is a self-reproducing program, which is on the IOCCC's list of discouraged program types. Worse, it's a self-reproducing program @@ -42,14 +52,18 @@ integer-to-pointer conversions due to the implicitly-declared functions. Try: - echo '(format t "~s" (+ 2 2 ))' | ./lispob +```sh +echo '(format t "~s" (+ 2 2 ))' | ./lispob +``` You should see '4"' echoed on your command prompt. The " after the 4 and the lack of a newline are due to the somewhat broken implementation of the format function. More sophisticated arithmetic expressions may be used: - echo '(format t "~s" (* (+ 2 2 ) (- 5 (/ 9 3 ))))' | ./lispob +```sh +echo '(format t "~s" (* (+ 2 2 ) (- 5 (/ 9 3 ))))' | ./lispob +``` This evaluates the expression (2+2) * (5 - 9/3) giving the correct result, 8. Note that due to the highly ad-hoc nature of the tokenizer, @@ -64,48 +78,52 @@ Aside from being required to put spaces between tokens and closing parentheses, there are other limitations on the dialect of Common Lisp that this program understands: - * The only built-in functions are defvar, format, substitute, char-upcase, +* The only built-in functions are defvar, format, substitute, char-upcase, +, -, *, and /. - * Only one variable is available. This variable is called 'q', although any +* Only one variable is available. This variable is called 'q', although any symbol name starting with the letter 'q' will be mapped to this variable. - * Only the first letter of a function name is significant. For example, +* Only the first letter of a function name is significant. For example, format, f, farm, and various other words starting with 'f' will all map to the format function. - * The defvar function completely ignores its first parameter. It will always +* The defvar function completely ignores its first parameter. It will always store the result of evaluating its second parameter in 'q'. Unlike in Common Lisp, multiple invocations of defvar on the same variable will overwrite old values. - * Character constants are limited to #\Newline and single-character +* Character constants are limited to #\Newline and single-character constants such as #\x. - * The char-upcase function will give strange results if passed something +* The char-upcase function will give strange results if passed something other than a lowercase character. - * The format function takes exactly three parameters. The first parameter is +* The format function takes exactly three parameters. The first parameter is ignored; output always goes to stdout. The second parameter must have exactly one ~s format specifier in it, and no other format specifiers are permitted. - * The arithmetic functions take exactly two parameters. +* The arithmetic functions take exactly two parameters. - * All tokens must be separated from a following ) by whitespace. +* All tokens must be separated from a following ) by whitespace. - * A lot of other things. Notably, the language which this program interprets +* A lot of other things. Notably, the language which this program interprets is nowhere near Turing-complete. Basically, the lisp interpreter is good for some basic math operations, and for running itself. To do the latter, try this: - ./lispob < lispob.c > lispob2.c - diff lispob.c lispob2.c +```sh +./lispob < lispob.c > lispob2.c +diff lispob.c lispob2.c +``` The program can also be run from an implementation of common lisp. To do this, run the common lisp compiler and then type the following command: - (load "lispob.c") +``` +(load "lispob.c") +``` The source code of lispob.c will be printed.