Greed: Difference between revisions

Windows console version.

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

#include <windows.h>

#include <iostream>

greed g; g.play(); return 0;

}

 

=={{header|Factor}}==

This uses Factor's own user interface vocabularies. Use hjkl-bnyu (vi-keys) to move.

combinators.short-circuit fry grouping io io.styles kernel lexer

literals make math math.matrices math.parser math.vectors random

] with-ui ;

 

{{out}}

[https://i.imgur.com/3IEo8cC.png Screenshot of the game after a loss]

 

Note that this version uses the Z key (rather than the Y key) to move diagonally downwards to the left. A leave key, L, has also been added in case one wants to end the game prematurely.

 

import (

}

}

 

=={{header|Kotlin}}==

{{works with|Windows 10}}

Note that this version uses the Z key (rather than the Y key) to move diagonally downwards to the left.

 

import kotlinx.cinterop.*

srand(time(null).toInt())

Greed().play()

 

=={{header|Java}}==

=={{header|Julia}}==

GUI version. Click a square adjacent to the "@" symbol to move.

 

struct BState

# greedapp(22, 79) # This would be per task, though a smaller game board is nicer

greedapp(12, 29)

 

=={{header|Nim}}==

And we also added a score field to the BState object in order to restore the correct score when undoing a move.

 

import gintro/[gobject, glib, gtk, gio]

 

let app = newApplication(Application, "Rosetta.greed")

discard app.connect("activate", activate)

 

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

use feature 'say';

if ($c eq 'c') { execute( 1, 0) if $Y < $h } # South

if ($c eq 'v') { execute( 1, 1) if $X < $w and $Y < $h } # South-East

 

=={{header|Phix}}==

{{trans|C++}}

 

sequence board

end while

end procedure

 

=={{header|PicoLisp}}==

Computer play by selecting random road. [https://asciinema.org/a/369181 Demo] is here.

(load "@lib/simul.l")

(seed (in "/dev/urandom" (rd 8)))

(=: A 0) ) )

(display) ) )

 

=={{header|Raku}}==

{{trans|Phix}}

 

srand 123456;

when 'v' { execute( 1, 1) if X < w and Y < h } # South-East

}

 

=={{header|REXX}}==

 

Pointers (above and to the right of) the grid are included to help identify where the current location is.

parse arg sw sd @ b ?r . /*obtain optional argumenst from the CL*/

if sw=='' | sw=="," then sw= 79 /*cols specified? Then use the default*/

if r==!r then _= _ '◄' /*indicate row of current position. */

if tell then say _ /*display a row of grid to screen. */

A note on the OUTPUT sections: &nbsp; each (cleared) screen displayed is shown below as a separate OUTPUT section.

 

</pre>

 

 

=={{header|Z80 Assembly}}==