Snake and ladder: Difference between revisions

{{trans|Python}}

9 = 31,

17 = 7,

print()

{{out}}

=={{header|ALGOL 68}}==

Fully automated game, the user is initially promoted for a number of players (up to 10, 0 or less exits without playing). The user is also prompted as to whether a player can win by reaching a square greater than the final one and also whether a player can throw again after throwing a 6.

# create the board #

INT max square = 100;

OD

FI

{{out}}

Sample game.

=={{header|AWK}}==

# syntax: GAWK -f SNAKE_AND_LADDER.AWK [players]

# example: GAWK -f SNAKE_AND_LADDER.AWK 3

}

}

<p>Sample command and output:</p>

<pre>

==={{header|BASIC256}}===

{{trans|FreeBASIC}}

arraybase 1

global SNL

until False

end function

=={{header|C}}==

{{trans|C++}}

#include <stdio.h>

#include <stdlib.h>

out:

return 0;

=={{header|C sharp|C#}}==

{{trans|Kotlin}}

using System.Collections.Generic;

}

}

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

{{trans|C#}}

#include <map>

#include <random>

out:

return 0;

=={{header|D}}==

{{trans|Raku}}

//Board layout, start square to end square

}

}

{{out}}

<pre>Player 1 on square 1 rolls a 5 and moves to square 6

=={{header|FreeBASIC}}==

{{trans|Visual Basic .NET}}

Dim Shared As Integer SNL(1 To 16, 1 To 2) => {_

{ 4, 14}, { 9, 31}, {17, 7}, {20, 38}, {28, 84}, {40, 59}, {51, 67}, {54, 34}, _

Loop

Sleep

=={{header|Go}}==

{{trans|Kotlin}}

import (

}

}

Sample game:

The following game starts with players' counters off the board, an exact roll is not required to win and no additional dice roll results from throwing a six.

SnakesLadders=: _2 ]\ 4 14 9 31 17 7 20 38 28 84 40 59 51 67 54 34 62 19 63 81 64 60 71 91 87 24 93 73 95 75 99 78

'idx val'=: |: SnakesLadders

start=: >:@".@prompt&'How many players to play against?' [ echo bind 'You are Player 1!'

'''Example Usage:'''

You are Player 1!

How many players to play against?

60 73 44 94 45

61 79 50 100 49

=={{header|Java}}==

import java.util.Random;

}

}

=={{header|Julia}}==

{{trans|Python}}

The game is pure chance, with a 2% advantage to going before the next player. See statistics below.

51 => 67, 54 => 34, 62 => 19, 63 => 81, 64 => 60, 71 => 91, 87 => 24, 93 => 73,

95 => 75, 99 => 78)

slstats(5, 1000000)

<pre>

Player 1 on square 1 rolls a 5 and moves to square 6.

This includes an option for the player to automatically roll again when a six is rolled which I believe is a common variation:

import java.util.Random

}

}

Sample output:

=={{header|Lua}}==

{{trans|C}}

function rollDice()

end

=={{header|Modula-2}}==

FROM FormatString IMPORT FormatString;

FROM RandomNumbers IMPORT Random;

ReadChar

=={{header|Nim}}==

{{trans|Kotlin}}

const Snl = {4: 14, 9: 31, 17: 7, 20: 38, 28: 84, 40: 59, 51: 67, 54: 34,

when isMainModule:

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

my %snl =( 4, 14, 9, 31, 17, 7, 20, 38, 28, 84, 40, 59, 51, 67, 54, 34,

62, 19, 63, 81, 64, 60, 71, 91, 87, 24, 93, 73, 95, 75, 99, 78);

if ($$square == 100) {print "Player $player wins after $turn_count turns.\n"; exit }

return

{{out}}

<pre>Player 1 on square 1 rolls a 3. Yay! Landed on a ladder. Climb up to 14.

=={{header|Phix}}==

{{trans|C#}}

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">sixesThrowAgain</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">true</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

{{out}}

<pre>

=={{header|PicoLisp}}==

(setq *D

'((4 14 T) (9 31 T) (17 7) (20 38 T)

(loop

(mapc turn P) ) ) ) )

{{out}}

<pre>

=={{header|Python}}==

import sys

print

=={{header|Racket}}==

(define portals (hash 4 14 9 31 17 7 20 38 28 84 40 59 51 67 54 34 62 19 63 81 64 60 71 91 87 24 93 73 95 75 99 78))

(module+ main

{{out}}

Snakes and ladders is entirely chance based, so human interaction is not really required. This version allows up to one human player against any number of computer players and asks for input... but doesn't really ''need'' or even ''use'' it. I didn't bother to implement a graphical interface.

my %snl = 4, 14, 9, 31, 17, 7, 20, 38, 28, 84, 40, 59, 51, 67, 54, 34,

62, 19, 63, 81, 64, 60, 71, 91, 87, 24, 93, 73, 95, 75, 99, 78;

say "Player $player wins!" and exit if $square == 100;

return $square;

{{out|Sample output}}

<pre>You are on square 1. Hit enter to roll the die.

{{trans|D}}

<!-- for Regina REXX, use a seed of 8 to produce the game shown below. !-->

parse arg np seed . /*obtain optional arguments from the CL*/

if np=='' | np=="," then np= 3 /*Not specified? Then use the default.*/

if square<next then say right(@ladder, 69)

else if square>next then say right(@oops , 69)

{{out|output|text=&nbsp; when using the default input:}}

<pre>

=={{header|Ruby}}==

NONE = 0; LADDER = 1; SNAKE = 2; STAY = 1; MOVE = 2; WIN = 3

class Cell

@playersCount = 4; @board; @players; @die

play

{{out}}<pre>

...

=={{header|Visual Basic .NET}}==

{{trans|C#}}

ReadOnly SNL As New Dictionary(Of Integer, Integer) From {

End Sub

=={{header|Wren}}==

{{trans|Kotlin}}

var rand = Random.new()

i = i + 1

}

{{out}}

=={{header|Yabasic}}==

// by Galileo, 04/2022

end if

print

{{out}}

<pre>Player 1 on square 1 rolls a 4 and moves to square 5.