PifyZ

use stdio as io
use math

Num main(List<Str> args) {
	Num nb_rand   = math.rand(0, 100)
	Num saisie    = -1
	Num nb_essais = 0

	do {
		saisie = io.ask("Essai n#{nb_essais + 1} = ").to_num()

PifyZ

package;

class Brainfuck {
  public static function main() {
    var args = Sys.args();

    // On test si un fichier a été spécifié en argument
    if (args.length != 1) {
      Sys.println('Utilisation : ${Sys.executablePath()} file.bf');
      Sys.exit(1);

PifyZ

package;

// enum Direction {
// 	RIGHT; // 0
// 	LEFT;  // 1
// 	UP;    // 2
// 	DOWN;  // 3
// }

class Befunge {

PifyZ

package pifybird;

import flash.display.Sprite;
import flash.display.BitmapData;
import flash.geom.Rectangle;
import openfl.display.Tilesheet;
import openfl.Assets;

class Bird extends Sprite {
	private var bitmap:BitmapData;

PifyZ

Import mojo.graphics
Import monster

Class Face Abstract
	Const EXPOSED := 0
	Const COVERED := 1
End

Class Position Abstract
	Const ATTACK  := 0

PifyZ

Idées d'améliorations du langage Haxe : sans ordre d'importance

• Ajouter la surchage des méthodes dans une même classe :

public function ma_methode(a:Int, b:Int):Int { }
public function ma_methode(a:String, b:String):Int { }

• Les mots-clés var et function sont inutiles dans les déclarations de méthodes :

PifyZ

Déclarer un alias

alias Integer = Int

Déclarer un alias d'un type générique

alias ListOf<T> = List<T>

PifyZ

# ---------
# Fonctions
# ---------
# Récupérer une valeur au hasard dans une liste
proc random_pick { a_list } {
	lindex $a_list [ expr { int(rand() * [ llength $a_list ]) } ]
}

# Donner la valeur d'une carte
proc card_value { card } {

PifyZ

data Expr =
	  Num Float
	| Add Expr Expr
	| Sub Expr Expr
	| Mul Expr Expr
	| Div Expr Expr
	  deriving (Show)

a :: Expr
a = Div (Num 5) (Num 2.6)

PifyZ

pack state

use entity.Hero
use hx.HxState

class Fight < HxState {
	public static This inst

	Hero hero