アルドール

# include "aldor" # include "aldorio" #パイル 
 


sumlist ( R: ArithmeticType 、l : List R ) : R == s : R := 0 ; x in lの場合、s := s + x sを繰り返します。       
       
             
    

ListからのインポートInteger 、Integer 、List SingleFloat 、SingleFloat stdout << sumlist ( Integer 、[ 2 、3 、4 、5 ]) <<改行stdout << sumlist ( SingleFloat 、[ 2.0 、2.1 、2.2 、2.4 ]) <<改行       
     
        

# "aldor"を含める# "aldorio"を含める 
 

Integer 、Stringからインポートします。   

bob ( n : Integer ) : String == { b : String := "ボトル" ;    
       

    n ~= 1 の場合、b := b + "s" ; b + " of beer" ; }         
      


main () : () == { n : Integer := 99 ; otw : String := " 壁に " ;   
       
       

    
-- n > 0の間は控えるrepeat { stdout << n << bob ( n ) << otw << ", " << n << bob ( n ) << "." << newline ; stdout << "Take one down and pass it around, " ; n := n - 1 ; if n > 0 then stdout << n ; else stdout << "no more" ; stdout << bob ( n ) << otw << "." << newline ; stdout << newline ; }         
                        
          
            
               
           
                
          
    

    -- 最後の詩
stdout << "もうない" << bob ( n ) << otw << "、もうない" << bob ( n ) << "." <<改行; stdout << "店に行って、もう少し買ってきて、" ; n : Integer := 99 ; stdout << n << bob ( n ) << otw << "." <<改行; }                  
      
       
              


主要（）;