フォーマット (Common Lisp)

;; 標準出力に「1 + 2 = 3」を出力し、「NIL」を返します。
( format t "1 + 2 = ~D" 3 )   

;; 「1 + 2 = 3」を含む新しい文字列を作成して返します。
( format nil "1 + 2 = ~D" 3 )   

;; 「1 + 2 = 3」を含む新しい文字列を作成して返します。
( with-output-to-string ( output ) ( format output "1 + 2 = ~D" 3 )) 
     

;; ファイル "outputFile.txt" に文字列 "1 + 2 = 3" を書き込みます。
( with-open-file ( output "outputFile.txt" :direction :output :if-does-not-exist :create :if-exists :append ) ( format output "1 + 2 = ~D" 3 ))  
                           
                   
                           
     

;; 動的文字列に文字列 "1 + 2 = 3" を追加します。
( let (( output-string ( make-array 0 :element-type 'character :adjustable t :fill-pointer 0 ))) ( declaration ( type string output-string )) ( format output-string "1 + 2 = ~D" 3 ) (文字列output-string ))   
                        
                        
                        
     
     
    

(フォーマットt "~B" 5 )   

(フォーマットt "~8,'0b" 5 )   

(フォーマットt "~v,'0b" 8 5 )    

( let ((桁数8 )) ( declare ( type (整数0 * )桁数)) ( format t "~V,'0b"桁数5 ))  
       
      

( defun print-as-hexadecimal ( number-to-format number-of-digits ) "NUMBER-TO-FORMAT を 16 進数 (基数 16) で出力し、   少なくとも NUMBER-OF-DIGITS になるまで左側にゼロを埋め込みます。" ( declaration ( type number number-to-format )) ( declaration ( type ( integer 0 * ) number-of-digits )) ( format t "~V,'0x" number-of-digits number-to-format ))   
  

            
       
      

( 16進数で印刷12 2 )  

;; 「選択なし」を出力します。
( format t "~#[選択なし~;1 つ選択: ~A~;2 つ選択: ~A と ~A~:;さらに選択: ~@{~A~^, ~}~]" )  

;; 「1 つ選択: BUNNY」を出力します。
( format t "~#[none selected~;one selected: ~A~;two selected: ~A and ~A~:;more selected: ~@{~A~^, ~}~]" 'bunny )   

;; 「2 つ選択済み: BUNNY と PIGEON」を出力します。
( format t "~#[選択なし~;1 つ選択済み: ~A~;2 つ選択済み: ~A と ~A~:;さらに選択済み: ~@{~A~^, ~}~]" 'bunny 'pigeon )    

;; 「さらに選択: ウサギ、ハト、ネズミ」を出力します。
( format t "~#[選択なし~;1 つ選択: ~A~;2 つ選択: ~A と ~A~:;さらに選択: ~@{~A~^, ~}~]" 'ウサギ 'ハト'ネズミ)     

(フォーマットt "~@B" 5 )   

 ( format t "Color ~A, number1 ~D, number2 ~5,'0D, hex ~X, float ~5,2F, unsigned value ~D.~%" "red" 123456 89 255 3.14 250 ) ;; 出力: Color red, number1 123456, number2 00089, hex FF, float 3.14, unsigned value 250.  
                  
 

 ( let (( groceries ' ( eggs bread butter carrots ))) ( format t "~{~A~^, ~}.~%" groceries ) ; 大文字で出力します( format t "~:(~{~A~^, ~}~).~%" groceries )) ; 出力を大文字にします;; 出力: EGGS, BREAD, BUTTER, CARROTS. ;; 出力: Eggs, Bread, Butter, Carrots.     
               
         
 
 

( let (( template "幸運な勝者は次のとおりです:~#[ none~; ~S~; ~S and ~S~            ~:;~@{~#[~; and~] ~S~^,~}~]." )) ( format nil template ) ;; ⇒ "幸運な勝者は次のとおりです: none." ( format nil template 'foo ) ;; ⇒ "幸運な勝者は次のとおりです: FOO." ( format nil template 'foo 'bar ) ;; ⇒ "幸運な勝者は次のとおりです: FOO と BAR." ( format nil template 'foo 'bar 'baz ) ;; ⇒ "幸運な勝者は次のとおりです: FOO、BAR、および BAZ." ( format nil template 'foo 'bar 'baz 'quux ) ;; ⇒ "幸運な勝者は次のとおりです: FOO、BAR、BAZ、および QUUX." )  

    
  
     
  
      
  
       
  
        
  
  

( defun mydirective ( destination format-argument colon-modifier-supplied-p at-sign-modifier-supplied-p &optional ( repetitions 1 )) "この関数は、``format'' 呼び出しのディレクティブとして適切なコールバックを表し   、文字列を FORMAT-ARGUMENT として期待し   、DESTINATION に REPETITIONS 回数印刷します。   ---    COLON-MODIFIER-SUPPLIED-P フラグと AT-SIGN-MODIFIER-SUPPLIED-P フラグは、それぞれ   ``:'' と ``@'' 修飾子   の代表である一般化されたブール値を必要とします。それらの影響は   次のように定義されます:      - 修飾子が設定されていない場合、FORMAT-ARGUMENT は       それ以上変更されずに印刷されます。     - コロン修飾子が設定されていて、アット サイン修飾子が設定されていない場合、       FORMAT-ARGUMENT は印刷前に小文字に変換されます。     - アット マーク修飾子が設定されていて、コロン修飾子が設定されていない場合、       FORMAT-ARGUMENT は、印刷前に大文字に変換されます。     - 両方の修飾子が設定されている場合、FORMAT-ARGUMENT は印刷前に逆順にされます       。   ---    FORMAT-ARGUMENT 文字列が印刷される回数は   、プレフィックス パラメータ REPETITIONS によって決定されます。この   パラメータは、負でない整数でなければならず、デフォルトは 1 です。" ( declare ( type ( or null ( eql t ) stream string ) destination )) ( declare ( type t format-argument )) ( declare ( type t colon-modifier-supplied-p )) ( declare ( type t at-sign-modifier-supplied-p )) ( declare ( type ( integer 0 * ) repetitions )) ( let (( string-to-print format-argument )) ( declare ( type string string-to-print )) ;; 修飾子に基づいて STRING-TO-PRINT を調整します。( cond (( andコロン修飾子指定pアットマーク修飾子指定p ) ( setf印刷する文字列(  
                    
                    
                    
                      
  



















          
                                   
                                   
                                   
                         
  
    
       
    
    
    
        
          逆順に文字列を印刷する))) (コロン修飾子で指定したp ( setf文字列を印刷する(文字列を小文字にする 文字列を印刷する))) (アットマーク修飾子で指定したp ( setf文字列を印刷する(文字列を大文字にする 文字列を印刷する))) ( t nil )) ( loop repeat繰り返しを実行する do (フォーマット先"~A"文字列を印刷する)))) 
      
           
      
           
      
        
    
       
         

;; 「Hello」を1回出力します。
( format t "~/mydirective/" "Hello" )   

;; "Hello" を 3 回出力します。
( format t "~3/mydirective/" "Hello" )   

;; 小文字の「Hello」（=「hello」）を3回出力します。
（format t "~3:/mydirective/" "Hello" ）   

;; 大文字の「Hello」（=「HELLO」）を3回印刷します。
（format t "~3@/mydirective/" "Hello" ）   

;; 逆順にした「Hello」（=「olleH」）を3回印刷します。
（format t "~3:@/mydirective/" "Hello" ）