Snake: Difference between revisions

=={{header|Ada}}==

-- This code is a basic implementation of snake in Ada using the command prompt

-- feel free to improve it!

Snake.run;

end;

{{out}}

=={{header|Amazing Hopper}}==

{{trans|C}}

/* Snake */

/* Implementing this task in Hopper-FLOW-MATIC++ */

PRNL("\OFF")

RET

{{out}}

Init game:

=={{header|AutoHotkey}}==

Gui, +AlwaysOnTop

Gui, font, s12, consolas

return [oGrid, row, col]

}

=={{header|BASIC}}==

==={{header|FreeBASIC}}===

REM Snake

End

'--------------------------

==={{header|Locomotive Basic}}===

If you are playing this in [https://benchmarko.github.io/CPCBasic/cpcbasic.html CPCBasic], first click on the CPC screen so it gets keyboard input and then enter "run" (clicking the Run button would deselect the screen again).

20 sx=20:sy=5:dx=1:dy=0:ml=20:dim ox(ml),oy(ml):oi=1:ll=4:skill=6

30 f$=chr$(228):w$=chr$(127):b$=chr$(231)

280 if a$<>" " then 260

290 print f$;

==={{header|ZX Spectrum Basic}}===

Note that lines <code>10</code> to <code>210</code> and <code>580</code> to <code>890</code>—more than half the program—define graphics characters for the snake's head (facing in different directions) and for its food. If you're happy to make do with characters from the standard character set, you can easily adapt lines <code>220</code> to <code>570</code> to work on their own. The things the snake eats are supposed to be apples, although they don't look too much like them.

20 READ bits

30 POKE USR "L"+i,bits

870 DATA BIN 11111100

880 DATA BIN 01111111

=={{header|C}}==

As some implementation below (C++) works on Windows console, let it work on Linux. Other implementations could be added as well, reusing the api.

// The problem with implementing this task in C is, the language standard

close_screen();

return 0;

=={{header|C++}}==

Simple Windows console implementation.

[[File:SnakeCpp.png|200px|thumb|right]]

#include <windows.h>

#include <ctime>

snake s; s.play(); return 0;

}

=={{header|Delphi}}==

{{libheader| Winapi.Windows}}

{{libheader| Vcl.ExtCtrls}}

{{Trans|JavaScript}}

unit SnakeGame;

FrameTimer.Enabled := True;

end;

Form resources:

object SnakeApp: TSnakeApp

OnCreate = FormCreate

end

=={{header|Go}}==

FreeBSD, OpenBSD, NetBSD, DragonFly BSD, Linux, MS Windows, and MacOS

(tested on FreeBSD and MS Windows).

import (

snakeHead = termbox.Cell{Ch: 'O', Bg: bg, Fg: termbox.ColorYellow | termbox.AttrBold}

food = termbox.Cell{Ch: '@', Bg: bg, Fg: termbox.ColorRed}

=={{header|Haskell}}==

import Control.Monad.Random (getRandomRs)

import Graphics.Gloss.Interface.Pure.Game

main = do world <- createWorld

play inW white 7 world renderWorld handleEvents updateWorld

'''Extra credit'''

It is easy to make snake to seek food automatically. Just change the first line of the <code>updateWorld</code> definition:

and add local definition:

where

optimalDirection = minimumBy (comparing distanceToFood) safeTurns

distanceToFood d = let (a,b) = w^.snake & turns d & moves & (^.body) & head

(x,y) = w^.food & head

=={{header|J}}==

In this implementation, speed is fixed (and final score is by the update rate). Another approach might be to start slow and gradually speed based on the length of the snake. Those sorts of changes are left as an exercise for the reader.

coinsert 'jgl2'

end.

snake=: ,:_ _

=={{header|Java}}==

=={{header|JavaScript}}==

You need the P5 Library to run this code!

const L = 1, R = 2, D = 4, U = 8;

var block = 24, wid = 30, hei = 20, frameR = 7, fruit, snake;

if( !snake.alive ) text( "THE END", 630, 250 );

}

=={{header|Julia}}==

Makie version in 99 lines.

mutable struct SnakeGame

play()

=={{header|Kotlin}}==

{{trans|C++}}

{{works with|Windows 10}}

import kotlinx.cinterop.*

srand(time(null).toInt())

Snake().play()

{{output}}

[[File:snake-lua.png]]

{{works with|LÖVE}}

UpdateTime=0.200

Timer = 0

Head.nextDirection = iDirection

end

=={{header|Nim}}==

{{libheader|nim-ncurses}}

As in the C version, the code is provided for Linux. We use the tiny API defined in the C version, only adjusted to work with Nim and the library “nim-ncurses”.

import ncurses

sleep(1000)

=={{header|OCaml}}==

{{libheader|OCamlSDL2}}

open Sdl

main_loop state

in

=={{header|Perl}}==

[[File:Snake_game_perl.png|200px|thumb|right]]

use Time::HiRes qw(sleep);

use Term::ANSIColor qw(colored);

elsif ($key eq "\e[C" and $dir ne LEFT ) { $dir = RIGHT }

elsif ($key eq "\e[D" and $dir ne RIGHT) { $dir = LEFT }

=={{header|Phix}}==

{{trans|C++}}

enum NORTH, EAST, SOUTH, WEST

end while

end procedure

=={{header|Python}}==

Using Pygame. Works with Python >= 3.7.

import itertools

score = game.main()

print(score)

=={{header|Raku}}==

This is a variation of a demo script included in the examples folder for the Raku [https://modules.raku.org/search/?q=SDL2%3A%3ARaw SDL2::Raw library bindings].

use Cairo;

}

=={{header|Rust}}==

[http://github.com/rust-rosetta/rust-rosetta/blob/master/tasks/snake/SnkRust.png snake game screenshot]

[dependencies]

winsafe = "0.0.8"

.unwrap();

}

=={{header|Sidef}}==

const readkey = frequire('Term::ReadKey')

const ansi = frequire('Term::ANSIColor')

var h = `tput lines`.to_i

=={{header|Wren}}==

{{libheader|Wren-dynamic}}

An embedded program so we can ask the C host to call ncurses and another library function for us.

import "random" for Random

}

C.usleep(999 * 1000)

<br>

Now embed this script in the following C program, compile and run it.

#include <stdio.h>

free(script);

return 0;

=={{header|XPL0}}==

speed is currently set at nine steps per second.

StartLength = 10, \starting length of snake including head

Morsels = 10; \number of food items constantly offered

Sound(0, 36, 1); \pause 2 seconds to see result

OpenI(1); \flush any pending keystrokes