| Table des matières |
#
# Existence
#
tant_que (<VIE>)
{
JOURS: tant_que ($jour = <REEL>)
{
IMPORTANT: si ($jour sans /(femme).*(art).*(nature)/)
alors {
@nouveau_jour = &oublier($jour);
si (est_vide (@nouveau_jour))
alors aller_a NUITS;
sinon {
$jour = recuperer (/details/, @nouveau_jour);
aller_a IMPORTANT;
}
}
($desir, $imaginaire, $energie) = ($1, $2, $3);
si ($desir + $imaginaire > $seuil_animal)
alors &creer($desir, $imaginaire);
sinon &contempler();
si ($energie > $seuil_acceptable)
alors &bouger($energie);
}
NUITS: tant_que ($reve = <REVE>)
{
si ($toi)
alors {
@nous = ($toi, $moi);
&aimer($reve, @nous);
}
si ($reve avec /cauchemar/)
alors {
si ($toi)
alors poser ($ma_tete, $tes_bras);
aller_a NUITS;
}
si ($reve avec /rire/)
alors aller_a JOURS;
}
}
#
# Actions
#
action oublier($jour)
{
@problemes = dissequer (/details/, $jour);
@nouveau_jour = ();
tant_que ($probleme = @problemes)
{
si (a_solution ($probleme))
alors ajouter ($probleme, @nouveau_jour);
}
retourner @nouveau_jour;
}
action creer($desir, $imaginaire)
{
faire {Arts::executer(\$desir, \$imaginaire)}
tant_que ($desir et $imaginaire);
}
action contempler()
{
tant_que (Detente::reve_eveille())
faire rien;
}
action bouger($energie)
{
faire {Sports::executer(\$energie)}
tant_que ($energie);
}
action aimer($envie, @stimulation)
{
faire {$plaisir = conjuguer (@stimulation, $envie)}
tant_que ($plaisir);
}22 décembre 2010.