« Suite de Conway » : différence entre les versions

 

<div class="exemple">

<?php

$a1 = array('1', '2', '3');

// Execution : cela affichera 3 lignes de la suite

?>

</div>

 

Voici un programme écrit en C qui affiche les n premiers termes de la suite de Conway, n étant passé en ligne de commande :

<div class="exemple">

#include <stdio.h>

#include <stdlib.h>

return 0;

}

</div>

 

 

<div class="exemple">

import Data.List

 

 

main = print . take 10 $ conway

</div>

 

 

<div class="exemple">

for ( $_=1;; ) { say; s/((.)\2*)/length($1).$2/xeg; }

</div>

 

 

<div class="exemple">

perl -E 'for ( $_=1;; ) { say; s/((.)\2*)/length($1).$2/xeg; }'

</div>

 

=== En [[Python (langage)|Python]] ===

<div class="exemple">

import itertools

 

for i in range(10):

print suite.next()

</div>

 

=== En [[Prolog]] ===

<div class="exemple">

conway(0,[1]).

conway(N,R):- N>0, M is N-1, conway(M,L), conwayLigneSuivante(L,R).

conwayLigneSuivante([E,E|L],[M,E|R]) :- conwayLigneSuivante([E|L],[N,E|R]), M is N+1.

conwayLigneSuivante([E,F|L],[1,E|R]) :- dif(E,F), conwayLigneSuivante([F|L],R).

</div>

 

=== En [[Ocaml]] ===

<div class="exemple">

let rec suivant c l e = match l with

| [] -> [c; e]

 

let () = conway 10

</div>

 

<div class="exemple">

La classe ConwayTerm représente un terme donné de la suite. Sa méthode nextTerm calcule le terme suivant. Dans l'exemple ci-dessous, le premier terme est 1. Si l'on veut commencer avec 22, il faut un tableau de 2 bytes contenant chacun 2 et non un byte contenant 22 (new byte[] { 2,2 })

package fr.math.suite;

 

 

 

</div>

== Références ==