Check out my program

#include <stdio.h>
#include <unistd.h>
#define LEN 15
int print(i,j) {
for (; i < LEN; ++i)
printf(" ");
puts("a");
usleep(50000);
return 0;
}
int main(void)
{
int i, j;
for(;;) {
for (j = 0; j < LEN; print(i), ++j)
i = j;
for (j = 0; j < LEN; print(i), ++j)
i = LEN-1-j;
}
return 0;
}

Do you like it?

At first I tried to make it be the SICP snake, with the head going down, but it was too hard for me.

A little oops on line 4. print(i,j) should be just print(i)
Sorry!

mutating loop variables
side effects in for-loop header
language has null pointers

Pig disgusting.

#!/usr/bin/perl
use strict; # PERL by Example (2015) p. 77
use warnings; # PERL by Example (2015) p. 85
our $cns = 32; # size of AI memory for central nervous system.
our $IQ = 0; # PERL by Example (2015) p. 689
our @aud = " "; # PERL by Example (2015) p. 17: auditory array
our $t = 0; # Lifetime experiential time "$t"
sub AudInput; # PERL by Example p. 351 Forward declaration
sub sensorium; # PERL by Example p. 351 Forward declaration
sub think; # PERL by Example p. 351 Forward declaration
sub VisRecog; # PERL by Example p. 351 Forward declaration
TabulaRasa: { # PERL by Example (2015), p. 204: Labels
my $trc = 0; # $trc variable is "tabula rasa counter".
print "Size of experiential memory is $cns \n"; # Increase as needed.
until ($trc == $cns) { # PERL by Example (2015), p. 193: "Loops".
$aud[$trc] = " "; # Fill CNS memory with blank spaces.
$trc++; # PERL by Example (2015) p. 21: autoincrement $trc.
} # End of loop filling auditory memory with blank engrams.
} # End of TabulaRasa "clean slate" sequence.
EnBoot: { # http://mind.sourceforge.net/enboot.html
$t = 0; # English Bootstrap sequence stretches over mental time "$t".
print "English bootstrap is loading into memory... \n";
$t = 0; $aud[$t] = "H"; # Indexing of array begins with zero.
$t = 1; $aud[$t] = "E"; # Single elements of array use $aud not @aud.
$t = 2; $aud[$t] = "L"; # PERL by Example (2015), p. 95: Elements
$t = 3; $aud[$t] = "L"; # AudMem() stores new words at higher $t values.
$t = 4; $aud[$t] = "O"; # Bootstrap "HELLO" is not permanently here.
$t = 5; # A blank gap is necessary between words.
$t = 6; # More bootstrap words will be needed.
}; # http://code.google.com/p/mindforth/wiki/EnBoot
while ($IQ < 8) { # PERL by Example (2015), p. 190
sensorium(); # PERL by Example p. 350: () empty parameter list
think(); # PERL by Example p. 350: () empty parameter list
} # End of main loop calling mind.pl Strong AI subroutines
sub sensorium() { # Start sensory input through sensory modalities.
print " Sensorium: Calling AudInput subroutine: \n";
AudInput(); # PERL by Example p. 350: () empty parameter list
# VisRecog(); -- non-existent subroutine is shown but commented out
} # End of sensorium subroutine in Perl artificial intelligence
sub AudInput() { # As if keyboard input were auditory hearing.
print " AudInput: Enter new IQ: ";
$IQ = <STDIN>; # PERL by Example (2015), p. 50
} # End of auditory input for human-computer interaction
sub think() { # Start showing output as if generated by thinking.
print "Think: My IQ is now $IQ";
} # http://ai.neocities.org/AiSteps.html

>>3
Whom are you quoting?

I like it, but it's too abrupt. Should aim for a sinusoid or something like that.

>>5
The Akashic records.

>>4
Hey you, where I can get a copy of Perl by Example?

>>8
> where I can get a copy of Perl by Example?
http://www.amazon.com/dp/B00RP3A15O -- is the Kindle e-book,
but you should click from there to the paperback (2015) version
which I bought and from which I cite actual page numbers at
http://ai.neocities.org/AiSteps.html -- showing Perl AI code.

Check out my dubs

>>10
Hey mister, you dropped these dubs! I'm glad I noticed so I could return them to you.

Saddest thing is that this compiles without warnings by default (no flags given) when using GCC.

>>12
The only warning is "type defaults to int"

>>12
Why should it display any warnings? It looks okay to me.

>>14
Well, for example, print takes two parameters, i and j. Neither has type specified (defaults to int). And it's called with only one parameter.

It's insane that this even compiles at all. C is fucked up language.

//superior
#include <stdio.h>
#include <unistd.h>
#define LEN 15
int print(i,j) {
for (; i < LEN; ++i)
putchar(' ');
puts("O O O O");
usleep(20000);
return 0;
}
int main(void)
{
int i, j;
for(;;) {
for (j = 0; j < LEN; print(i), ++j)
i = j;
for (j = 0; j < LEN; print(i), ++j)
i = LEN-1-j;
}
return 0;
}

//even better
#include <stdio.h>
#include <unistd.h>
#define LEN 15
print(i,j,z ,a2 ,a3 ,a5 ,a7 ,a11 ,a13 ,a17 ,a19 ,a23 ,a29 ,a31 ,a37 ,a41 ,a43 ,a47 ,a53 ,a59 ,a61 ,a67 ,a71 ,a73 ,a79 ,a83 ,a89 ,a97 ,a101 ,a103 ,a107 ,a109 ,a113 ,a127 ,a131 ,a137 ,a139 ,a149 ,a151 ,a157 ,a163 ,a167 ,a173 ,a179 ,a181 ,a191 ,a193 ,a197 ,a199 ,a211 ,a223 ,a227 ,a229 ,a233 ,a239 ,a241 ,a251 ,a257 ,a263 ,a269 ,a271 ,a277 ,a281 ,a283 ,a293 ,a307 ,a311 ,a313 ,a317 ,a331 ,a337 ,a347 ,a349 ,a353 ,a359 ,a367 ,a373 ,a379 ,a383 ,a389 ,a397 ,a401 ,a409 ,a419 ,a421 ,a431 ,a433 ,a439 ,a443 ,a449 ,a457 ,a461 ,a463 ,a467 ,a479 ,a487 ,a491 ,a499 ,a503 ,a509 ,a521 ,a523 ,a541 ,a){
for (; i++ < LEN; )
putchar(' ');
puts("OOOOO");
usleep(20000);

}
main(){ st:;
int i,j;
for ( j = 0; j++ < LEN; print(i=j));
for (j = 0; j++ < LEN; print(i=LEN-1-j));
goto st;}

Best so far.

#include <stdio.h>
#include <unistd.h>
#define LEN 15
int print(int i) {
for (; i < LEN; ++i)
putchar(' ');
puts("O O O O");
usleep(20000);
return 0;
}
int main(void) {
int i, j;
for(;;) {
for (j = 0; j < LEN; print(i), ++j)
i = j;
for (j = 0; j < LEN; print(i), ++j)
i = LEN-1-j;
}
return 0;
}

>>18
Shit like the rest.

>>19
Why? Do better then.
Or are you all talk and no action?

sage

//Cee
#include <stdio.h>
#include <unistd.h>
#define LEN 15
print(i,j,z ,a2 ,a3 ,a5 ,a7 ,a11 ,a13 ,a17 ,a19 ,a23 ,a29 ,a31 ,a37 ,a41){
while (i++ < LEN)putchar(' ');
puts("x""y""z"); usleep(20000);}
main(i,j){
for (j = 0; j++ < LEN; print(i=j));
for (j = 0; j++ < LEN; print(i=LEN-j));
main(i,j);}

Best so far.

main(){puts("check 'em");}

#include <unistd.h>
#include <conio.h>
#include <stdio.h>

int main()
{
int a,b,c;
a=1;b=0;
while(1)
{
printf("%d\n",a);
c=a;
a=a+b;
b=c;
}
}

>>22
Cee Type Safety and Type Inference

>>20
module Snake where

import Control.Monad
import Control.Concurrent

len :: Int
len = 15

iterateur :: [Int]
iterateur = (take len $ iterate (+1) 0) ++ (take len $ iterate (subtract 1) len)

main :: IO ()
main = forever $ do
forM_ iterateur $ \i -> do
putStrLn $ replicate i ' ' ++ "0 0 0 0"
threadDelay 20000

Or, to make it more compact like you like,

module Snake where
import Control.Monad
import Control.Concurrent

len :: Int
len = 15
iterateur = (take len $ iterate (+1) 0) ++ (take len $ iterate (subtract 1) len)
main = forever $ do
forM_ iterateur $ \i -> do
putStrLn $ replicate i ' ' ++ "0 0 0 0"
threadDelay 20000

>>26,27
How do I run this shit?

Use runhaskell snake.hs, Luke.

>>29
I don't have that installed and it's apparently inconceivable to do it on Alpine Linux right now.
http://wiki.alpinelinux.org/wiki/Porting_GHC_to_Alpine

Why would I even want that?
The C program runs fine and probably orders of magnitude faster. And works by default with any standard C compiler in the OS, no need to all this Haskell mess. Say no to bloat.

>>30
Isn't Haskell compilers a bunch of .c/.h files in the end?

>>31
GHC is written in Visual Basic...

>>1
Check out my dubs.

[code]
-- an highly original masterpiece
module Snake where

import Control.Monad
import Control.Concurrent

len :: Int
len = 15

iterateur :: [Int]
iterateur = (take len [0..]) ++ (take len [len,len-1..]) -- 1000x betteur

main :: IO ()
main = forever $ do
forM_ iterateur $ \i -> do
putStrLn $ replicate i ' ' ++ "0 0 0 0"

-- an highly original masterpiece
module Snake where

import Control.Monad
import Control.Concurrent

len :: Int
len = 15

iterateur :: [Int]
iterateur = (take len [0..]) ++ (take len [len,len-1..]) -- 1000x betteur

main :: IO ()
main = forever $ do
forM_ iterateur $ \i -> do
putStrLn $ replicate i ' ' ++ "0 0 0 0"
lel

>>31
GHC is written in endotensors...

>>17
whoa

>>30

orders of magnitude faster
most of the time is spent sleeping

Well aren't you the Shit-Coder Supreme.

>>38
You can't even form proper prose without recurring to imageboard memes, what makes you think you have the right to say that?

>>39
I've seen implicit quoting way before I came to imageboards, newfag. Also it's no more of a meme than BBCodes or putting dots at ends of sentences.