Thử thách

Viết hàm thực hiện printfđịnh dạng chuỗi kiểu C.

Quy tắc

1. Bạn phải thực hiện ít nhất %%, %c, %s, %dvà %f.
2. Bạn không được sử dụng phương pháp định dạng chuỗi tích hợp.
3. Bạn không được chạy các chương trình bên ngoài hoặc kết nối với Internet từ chương trình của bạn.
4. Tùy bạn quyết định cách xử lý dữ liệu nhập không hợp lệ, nhưng chương trình của bạn không được chấm dứt bất thường.
5. Bạn nên viết một hàm matrixdic nếu có thể.

Các từ khóa "PHẢI", "KHÔNG PHẢI", "BẮT BUỘC", "SALL", "SALL KHÔNG", "NÊN", "KHÔNG NÊN", "KHUYẾN NGHỊ", "CÓ THỂ" và "TÙY CHỌN" trong tài liệu này là được giải thích như được mô tả trong RFC 2119 .

APL (73)

{⊃,/,⌿↑(⊂2∘↓¨Z⊂G),⊂{'c'0≡⍵,∊⊃⍺:⎕UCS⍺⋄⍕⍺}/⍵,⍪⌷∘G¨1↓1+(Z←G='%')/⍳⍴G←'%!',⍺}

Một số xét nghiệm:

      'a:%c b:%s c:%d'{⊃,/,⌿↑(⊂2∘↓¨Z⊂G),⊂{'c'0≡⍵,∊⊃⍺:⎕UCS⍺⋄⍕⍺}/⍵,⍪⌷∘G¨1↓1+(Z←G='%')/⍳⍴G←'%!',⍺} 65 'foo' 67
a:A b:foo c:67 

      printf←{⊃,/,⌿↑(⊂2∘↓¨Z⊂G),⊂{'c'0≡⍵,∊⊃⍺:⎕UCS⍺⋄⍕⍺}/⍵,⍪⌷∘G¨1↓1+(Z←G='%')/⍳⍴G←'%!',⍺}
      '1:%s 2:%s 3:%d 4:%c 5:%c' printf 'foo' 'bar' 100 110 'z'
1:foo 2:bar 3:100 4:n 5:z   
      'The %s brown %c%c%c jumps over the %s dog.' printf 'quick' 102 111 'x' 'lazy'
The quick brown fox jumps over the lazy dog.

Giải trình:

• G←'%!',⍺: tiền tố một công cụ xác định giả cho chuỗi (để xử lý dễ dàng hơn)
• (Z←G='%')/⍳⍴G: tìm các chỉ số của tất cả các %ký tự trong chuỗi; cũng lưu trữ một bitmask trongZ
• ⌷∘G¨1↓1+: chọn tất cả các ký tự bên cạnh %s và thả hình nộm.
• ⍵,⍪: khớp từng specifier với giá trị của nó từ đối số đúng.
• {... }/: Chạy chức năng sau trên mỗi cặp:
  • 'c'0≡⍵,∊⊃⍺: nếu đối số là một số và chỉ định là c:
  • :⎕UCS⍺: sau đó trả về giá trị unicode của đối số,
  • ⋄⍕⍺: nếu không, trả về chuỗi đại diện của đối số.
• ⊂: kèm theo
• ⊂2∘↓¨Z⊂G: tách chuỗi trên %s và sau đó loại bỏ hai ký tự đầu tiên của mỗi chuỗi con (đây là nơi hình nộm xuất hiện) và kèm theo kết quả của điều đó.
• ↑: tạo một ma trận trong hai mảng kèm theo, khớp với từng chuỗi con với giá trị sẽ theo nó.
• ,⌿: nối từng chuỗi con với giá trị của nó.
• ⊃,/: sau đó tham gia chuỗi kết quả.

Ruby: 102 ký tự

f=->s,*a{s.gsub(/%(.)/){$1==?%??%:a.shift.send({?c=>:chr,?s=>:to_s,?d=>:to_i,?f=>:to_f}[$1])rescue$&}}

Chạy mẫu:

irb(main):001:0> f=->s,*a{s.gsub(/%(.)/){$1==?%??%:a.shift.send({?c=>:chr,?s=>:to_s,?d=>:to_i,?f=>:to_f}[$1])rescue$&}}
=> #<Proc:0x96634ac@(irb):1 (lambda)>

irb(main):002:0> puts f["percent : %%\n   char : %c or %c\n string : %s or %s or %s\ndecimal : %d or %d or %d\n  float : %f or %f or %f\ninvalid : %x or %s or %d or %f", 65, 'B', 'format me', 42, Math::PI, 42, Math::PI, '2014', 42, Math::PI, '2014', 'more']
percent : %
   char : A or B
 string : format me or 42 or 3.141592653589793
decimal : 42 or 3 or 2014
  float : 42.0 or 3.141592653589793 or 2014.0
invalid : %x or  or 0 or 0.0
=> nil

Định dạng định dạng không hợp lệ được giữ đúng vị trí. Định dạng định dạng không có giá trị đối số được thay thế bằng giá trị trống của loại đã cho.

Lua 5.2, 115 byte

-- Function definition, 115 chars
function f(f,...)n,t=0,{...}return(f:gsub('%%(%a)',function(s)n=n+1return(({c=s.char})[s]or tostring)(t[n])end))end

-- Usage example
print(f('Happy %cew %d %s %f',78,2014,'Year!',math.pi))
-- Output: Happy New 2014 Year! 3.1415926535898

C ++ (281 ký tự)

#include<sstream>
#include<cstdarg>
#define q(x)va_arg(v,x);break;case
std::string p(char*f,...){std::ostringstream r;va_list v;va_start(v,f);while(*f)if(*f=='%')switch(++f,*f++){case's':r<<q(char*)'d':r<<q(int)'c':r<<(char)q(int)'%':r<<'%';}else r<<*f++;va_end(v);return r.str();}

Tôi ghét C ++, nhưng nó có vẻ là một lựa chọn tốt (tôi thực sự sẽ đi với C, nếu không char*con trỏ đó đòi hỏi quá nhiều nỗ lực để thực sự hữu ích). Đưa ra các char*đối số và std::stringkết quả, nhưng này, đó là C ++, vậy ai quan tâm đến tính nhất quán (theo ngôn ngữ mà bản thân nó không nhất quán)?

Java , 201 186 174 byte

12 byte nhờ Kevin Cruijssen

String f(String s,Object...a){String r="";for(char c,i=0,j=0;i<s.length();r+=c==37?(c=s.charAt(i++))<38?c:c==99?(char)(int)a[j++]:a[j++]:c==37?"":c)c=s.charAt(i++);return r;}

Hãy thử trực tuyến!