Le jeu du Code

PROGRAM DEGRAD 
      INTEGER DEG 
      REAL RAD, COEFF 

      WRITE ( *, 10) 
   10 FORMAT      (' ',20('*') /                                        &
     &             ' * Degres * Radians *' /                            &
     &             ' ', 20('*') )                                       

      COEFF = (2.0 * 3.1416) / 360.0 
      DO DEG = 0, 90 
         RAD = DEG * COEFF 
         WRITE ( *, 20) DEG, RAD 
   20 FORMAT         (' *  ',I4,'  * ',F7.5,' *') 
      END DO 

      WRITE ( *, 30) 
   30 FORMAT      (' ',20('*') ) 

      STOP 
      END PROGRAM DEGRAD

HAI
CAN HAS STDIO?
I HAS A NUMBER
GIMMEH NUMBER
IZ NUMBER BIGGER THAN 10?
        YARLY
                BTW c'est vrai
                VISIBLE "JUR NUMBER ARE BIG !"
        NOWAI
                BTW this c'est faux
                VISIBLE "JUR NUMBER ARE LITTLE !"
        KTHX
KTHXBYE

++++++++++
[                 
   >+++++++>++++++++++>+++>+<<<<-
]
                    70  100  30  10
>++.                      
>+.                     
+++++++.                 
.                       
+++.                 
>++.                     
<<+++++++++++++++.        
>.                        
+++.                    
------.                 
--------.                 
>+.                    
>.

sChaine est une chaîne
sChaine = DateVersChaine(Maintenant())

Info("Nous sommes le " + sChaine)

proc {DisMember X Ys}
       dis Ys = X|_ [] Yr in Ys = _|Yr {DisMember X Yr} end 
    end

    class DataBase from BaseObject 
       attr d
       meth init 
          d := {NewDictionary}
       end 
       meth dic($) @d end 
       meth tell(I)
          case {IsFree I.1} then 
             raise database(nonground(I)) end 
          else 
             Is = {Dictionary.condGet @d I.1 nil} in 
             {Dictionary.put @d I.1 {Append Is [I]}}
          end 
       end 
       meth ask(I)
          case {IsFree I} orelse {IsFree I.1} then 
             {DisMember I {Flatten {Dictionary.items @d}}}
          else 
             {DisMember I {Dictionary.condGet @d I.1 nil}}
          end 
       end 
       meth entries($)
          {Dictionary.entries @d}
       end 
    end 
     
    declare 
    proc {Dynamic ?Pred}
       Pred = {New DataBase init}
    end 
    proc {Assert P I}
       {P tell(I)}
    end 
    proc {Query P I}
       {P ask(I)}
    end

    EdgeP = {Dynamic}
    {ForAll
    [edge(1 2)
     edge(2 1)   % Cycle
     edge(2 3)
     edge(3 4)
     edge(2 5)
     edge(5 6)      
     edge(4 6)
     edge(6 7)
     edge(6 8)
     edge(1 5)
     edge(5 1)  % Cycle
    ]
    proc {$ I} {Assert EdgeP I} end 
    }

R1.1(V0[:sig]) => R0
R1.2(V0[:m x sig]) => R0
0 => i | m + 1 => j
[W [ i < j -> [ R1.1(V0[i: m x sig]) => R0 | i + 1 => i ] ] ]
END
R1.3() => R0
'H';'e';'l';'l';'o' => Z0[: m x sig]
R1.2(Z0) => R0
END

ARCHITECTURE mux_3_vers_1 OF porte_3_vers_1 IS
 
BEGIN
 
  WITH adr SELECT
    s <=  a  WHEN "00",
          b  WHEN "01",
          c  WHEN "10",
         '0' WHEN "11",
         'X' WHEN others;
 
END mux_3_vers_1;