Move 1988-2004 entries into subdirs
We we move 1988-2004 entries from all of a year's winning entries in a single directory to each winner being in their own sub-directory under the given year directory.
This commit is contained in:
1 parent
1e82e8aa3e
commit
d2a42f42e8
478 files changed
No files matched your search
@@ -0,0 +1,116 @@
|
||||
static char Asm = 'm'
|
||||
;
|
||||
#include\
|
||||
<assert.h>
|
||||
typedef unsigned long LOGO
|
||||
;
|
||||
#include\
|
||||
<stdio.h>
|
||||
static void new (char *, LOGO)
|
||||
;
|
||||
#include\
|
||||
<stdlib.h>
|
||||
#define Pascal (void)printf
|
||||
#include\
|
||||
<unistd.h>
|
||||
static void new (char *Oberon
|
||||
, LOGO awk)
|
||||
{ Pascal ("%s to %calloc %luM+%luK+%lu bytes"
|
||||
, Oberon
|
||||
, Asm
|
||||
, awk >> (__LINE__ - 1)
|
||||
, (awk & 0xffc00) >> (1+sizeof __TIME__)
|
||||
, awk & 1023)
|
||||
; } typedef size_t BCPL
|
||||
; static BCPL far = 0
|
||||
, Lisp = ~(BCPL)0^(
|
||||
~ (BCPL)0>>1)
|
||||
;
|
||||
#define B\
|
||||
( C)case SIG##C\
|
||||
: (void)puts(\
|
||||
# C)\
|
||||
; break\
|
||||
;
|
||||
int main (int, char**)
|
||||
;
|
||||
#define Alloc switch (Asm) { case 'c'\
|
||||
: Basic = calloc (far\
|
||||
, 1)\
|
||||
; break\
|
||||
; default\
|
||||
: Basic = malloc (far)\
|
||||
; }
|
||||
#include\
|
||||
<time.h>
|
||||
static int inline(void)
|
||||
;
|
||||
#include\
|
||||
<float.h>
|
||||
int main (int F77
|
||||
, char **F90)
|
||||
{ switch (F90[--F77][0] == 'c') case 1
|
||||
: Asm += 'c' - Asm
|
||||
; switch (setbuf (stdout
|
||||
, 0)
|
||||
, fork()) { char *Basic
|
||||
; case -1
|
||||
: assert (0)
|
||||
; break
|
||||
; case 0
|
||||
: for (
|
||||
; far
|
||||
#include\
|
||||
<iso646.h>
|
||||
or_eq Lisp, Lisp not_eq 0
|
||||
; Lisp >>= 1) { new ("Trying"
|
||||
, (LOGO) far)
|
||||
; Alloc switch (Basic not_eq 0) { case 1
|
||||
: Pascal ("..YEP\n")
|
||||
; free (Basic)
|
||||
; break
|
||||
; default
|
||||
: Pascal ("..nope\n")
|
||||
; far and_eq compl Lisp
|
||||
; } } Alloc assert (Basic not_eq 0)
|
||||
; new ("Able"
|
||||
, (LOGO) far)
|
||||
; (void) putchar ('\n')
|
||||
; for (Lisp = 0
|
||||
; Lisp < far
|
||||
; Lisp += 1 << 10) { time_t COBOL = time (NULL)
|
||||
; Basic[Lisp] = '\a'
|
||||
; Pascal ("\r%lu kilo bytes ok "
|
||||
, (LOGO) (1 + (Lisp >> 10)))
|
||||
; switch (difftime (time (NULL)
|
||||
, COBOL) - 5 > FLT_EPSILON) { case 1
|
||||
: free (Basic)
|
||||
; return 1
|
||||
; } } free (Basic)
|
||||
; return 0
|
||||
; } return inline()
|
||||
; }
|
||||
#include\
|
||||
<signal.h>
|
||||
#include\
|
||||
<sys/wait.h>
|
||||
static int inline (void) { int PL1
|
||||
; switch ((void) wait (&PL1)
|
||||
, WIFSIGNALED (PL1)) { int Algol
|
||||
; default
|
||||
: Algol = WTERMSIG (PL1)
|
||||
; Pascal (" %calloc lied! Killed by SIG"
|
||||
, Asm)
|
||||
; switch (Algol) { B(KILL) B(SEGV) default
|
||||
: Pascal ("NAL %d\n"
|
||||
, Algol)
|
||||
; } break
|
||||
; case 0
|
||||
: WEXITSTATUS(PL1)==1
|
||||
? Pascal (" %calloc lied! Thr\aashing\n"
|
||||
, Asm)
|
||||
: Pascal ("no overcommit\n")
|
||||
; } re\
|
||||
turn PL1
|
||||
;
|
||||
}
|
||||
Reference in new issue
Block a user