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.

I came to imageboards

This is a textboard, >>40-nigger.

>>41
I came to imageboards from another text-board, dipshit.

>>42
This isn't an imageboard.

>>41
who are you quoting

>>44
He's quoting >>40, dumbfuck. You are most likely one of those "back to jp with your meme" idiots. Guess what, you're the one mindlessly using it as a meme instead of actually wondering why someone's abusing the quote function.

Don't you have some threads to sage downvote on /lounge/? Make it with epic >/g/reentext so your /b/ros at the imageboards can appreciate your classy usage of memes and give you anonymous Internet love.

>>45

i want anonymous internet love too

#lang racket

(define LEN 15)

(define sprint
(lambda (i)
(if (>= i LEN)
(display "/\\/\\/\\\n")
(begin
(display " ")
(sprint (+ i 1))))))

(define main
(lambda (i enum)
(let [(new-enum
(cond
((and (equal? enum -) (= i 0)) +)
((and (equal? enum +) (= i LEN)) -)
(#t enum)))]
(sprint i)
(main (new-enum i 1) new-enum))))

(main 0 +)

>>47
How do I run this shit?

Maybe I can't ``Hello, World!''

>>48
$ racket iamfag.rkt

>>47

define
define
define

Just use def, ya verbose faggot.

>>51

ya verbose faggot

(define def define); ya verbose faggot!

>>51
who are you quoting

>>53
He's quoting >>51.

I know you're mad because mean people have asked you the same. Try not to abuse the quote function and it won't happen again! Easy, right? What are you waiting for? Start using quotes properly! :)

check 'em

>>54
Why would >>51 be quoting himself?

>>55

1:11

Nice.

>>54,56
Can you two stop assuming >>51-sama is male?

>>57
assemble pocketknife image

>>56
who are you quoting?

>>57
I am not assuming anything. Referring to a person of unknown sex using male pronouns is quite common.

How would Cudder write this program?
He wouldn't! Cudder is all talk and no action.

>>57
Check your privilege, male programmer!

>>57
Can you stop assuming >>51-guy is a weeaboo?

>>63
Well, that's just silly. If that were the case, why would he be here?

>>57,63
No, it's idiotic to assume otherwise.

>>17
I wonder what this does to the stack

>>66
Dubs☑

>>66
That's easy to investigate.

>>68

_I^N_V^E_S^T_I^G_A^T_E

MY ANUS

>>69
who are you quoting?

>>70
Hey /g/-friend, here's a tip. We're not actually against quoting anything that wasn't exactly there, or memes or anything like that; we're just against you and your shitty greentext and other idiot memes. It doesn't matter how much you spam,, no one is going to start appreciating your bullshit or treating your posts with anything other than contempt.

*farts on thread*

who am i quoting

>>71
I am against quoting anything that wasn't exactly there, or memes or anything like that. The quoting function has been this way for decades. Go get a new and different function for your trendy news maymays. Hashtags are an example that I don't loathe because people didn't change its use from existing syntax - instead they took an unused symbol in computing and gave it a meaning.