İlk baytı verilen bir UTF-8 bayt dizisinin uzunluğunu belirleyin. Aşağıdaki tabloda hangi aralıkların her olası uzunluğa eşlendiği gösterilmektedir:

  Range    Length
---------  ------
0x00-0x7F    1
0xC2-0xDF    2
0xE0-0xEF    3
0xF0-0xF4    4

_{Tablodaki boşluklarla ilgili notlar: 0x80-0xBF devam baytlarıdır, 0xC0-0xC1 aşırı uzun, geçersiz bir sıra başlatır, 0xF5-0xFF Unicode maksimum değerinin ötesinde bir kod noktasına neden olur.}

UTF-8 bayt dizisinin ilk baytını giriş ve çıkış olarak alan veya dizinin uzunluğunu döndüren bir program veya işlev yazın. G / Ç esnektir. Örneğin, girdi bir sayı, 8 bitlik karakter veya bir karakterlik dize olabilir. İlk baytın geçerli bir dizinin parçası olduğunu ve yukarıdaki aralıklardan birine düştüğünü varsayabilirsiniz.

Bu kod golf. Bayt cinsinden en kısa cevap kazanır.

Test senaryoları

0x00 => 1
0x41 => 1
0x7F => 1
0xC2 => 2
0xDF => 2
0xE0 => 3
0xEF => 3
0xF0 => 4
0xF4 => 4

İleri, 6 bayt

x-size

bkz. https://forth-standard.org/standard/xchar/X-SIZE

Giriş ve çıkış standart bir Forth modelini takip eder:

Giriş

Bellek adresi + tek baytlık UTF-8 "dizesinin" uzunluğu (yani 1).

Çıktı

Bayt cinsinden UTF-8 dizi uzunluğu.

Basit kod

Mağaza 0xF0 bir bellek hücresine ve x-size çağırmak:

variable v
0xF0 v !
v 1 x-size

Sonucu kontrol edin:

.s <1> 4  ok

Z80Golf , 19 14 bayt

00000000: 2f6f 3e10 37ed 6a3d 30fb ee07 c03c       /o>.7.j=0....<

Çevrimiçi deneyin!

@Bubbler sayesinde -5 bayt

Giriş 0x41 ile örnek-Çevrimiçi deneyin! montaj

0xC2 girişi ile örnek-Çevrimiçi deneyin!

Giriş 0xE0 ile örnek-Çevrimiçi deneyin!

Giriş 0xF4 ile örnek-Çevrimiçi deneyin!

Montaj:

;input: register a
;output: register a
byte_count:			;calculate 7^(log2(255^a))||1
	cpl			;xor 255
	ld l,a
	log2:
		ld	a,16
		scf
	log2loop:
		adc	hl,hl
		dec	a
		jr	nc,log2loop
	xor 7
	ret nz
	inc a

Çevrimiçi deneyin!

C (gcc) , 39 bayt

t(char x){x=(__builtin_clz(~x)-24)%7u;}

Çevrimiçi deneyin!

Jöle ,  8  7 bayt

+⁹BIITḢ

Baytı bir tamsayı olarak kabul eden monadik bir bağlantı.

Çevrimiçi deneyin! Veya bakın değerlendirilen tüm girdileri .

8 bitlik bir listenin girişi kabul edilebilirse, yöntem sadece 6 bayttır: 1;IITḢ ancak çok esnek I / O konuştuğu kabul edilmiştir.

Nasıl?

+⁹BIITḢ - Link: integer       e.g.: 127 (7f)            223 (df)            239 (ef)            244 (f4)
 ⁹      - literal 256
+       - add                       383                 479                 495                 500
  B     - to a list of bits         [1,0,1,1,1,1,1,1,1] [1,1,1,0,1,1,1,1,1] [1,1,1,1,0,1,1,1,1] [1,1,1,1,1,0,1,0,0]
   I    - increments                [-1,1,0,0,0,0,0,0]  [0,0,-1,1,0,0,0,0]  [0,0,0,-1,1,0,0,0]  [0,0,0,0,-1,1,-1,0]
    I   - increments                [2,-1,0,0,0,0,0]    [0,-1,2,-1,0,0,0]   [0,0,-1,2,-1,0,0]   [0,0,0,-1,2,-2,1]
     T  - truthy indices            [1,2]               [2,3,4]             [3,4,5]             [4,5,6,7]
      Ḣ - head                      1                   2                   3                   4

Haskell , 28 bayt

f x=sum[1|y<-"Áßï",x>y]+1

Çevrimiçi deneyin!

Python 2 , 28 bayt

lambda x:1.4**(x/16-11)//1+1

Çevrimiçi deneyin!

Jöle , 8 7 bayt

»Ø⁷Ba\S

Çevrimiçi deneyin!

Nasıl çalışır

»Ø⁷Ba\S  Main link. Argument: n (integer)

 Ø⁷      Yield 128.
»        Take the maximum of n and 128.
   B     Yield the array of binary digits.
    a\   Cumulatively reduce by AND, replacing 1's after the first 0 with 0's.
      S  Take the sum.

JavaScript (Node.js) , 24 bayt

x=>7^Math.log2(255^x)||1

Çevrimiçi deneyin!

Yakut , 27 23 bayt

->x{2+x[7]+(x/16<=>14)}

Çevrimiçi deneyin!

Kömür , 12 bayt

Ｉ⌕⍘⌈⟦Ｎ¹²⁸⟧²0

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

     Ｎ          Input number
      ¹²⁸       Literal 128
   ⌈⟦    ⟧      Take the maximum
  ⍘       ²     Convert to base 2 as a string
 ⌕         0    Find the position of the first `0`
Ｉ               Cast to string
                Implicitly print

Jöle , 7 bayt

»Ø⁷Bi0’

Port benim 05AB1E cevap .

Çevrimiçi deneyin veya tüm test senaryolarını doğrulayın .

Açıklama:

 Ø⁷        # Push 128
»          # Take the max of 128 and the input
   B       # Convert it to binary
    i0     # Get the 1-indexed first index of a 0
      ’    # Decrease it by 1 to make it 0-indexed (and output it implicitly)

Perl 6 , 18 bayt

{7-msb(255-$_)||1}

Çevrimiçi deneyin!

User202729'un JavaScript yanıtının bağlantı noktası. WhateverCode Alternatifleri:

(255-*).msb*6%34%7
-(255-*).msb%6%5+1

x86 Meclisi, 11 bayt

00000000 <f>:
   0:   f6 d1                   not    %cl
   2:   0f bd c1                bsr    %ecx,%eax
   5:   34 07                   xor    $0x7,%al
   7:   75 01                   jne    a <l1>
   9:   40                      inc    %eax
0000000a <l1>:
   a:   c3                      ret

Çevrimiçi deneyin!

User202729'un JavaScript yanıtının bağlantı noktası. Hızlı arama kurallarını kullanır.

Labirent , 35 bayt

? 28& 16/ )!@!
:_1 ";_ _3&""2
   @1

Çevrimiçi deneyin!

Kodun açılmamış sürümü:

?:_128&1!@
      ;
      _16/_3&2!@
            )
            !
            @

05AB1E , 8 7 bayt

žy‚àb0k

Liman Neil'in Kömür cevabı .
-1 bayt sayesinde@Grimy .

Tamsayı olarak girin.

Çevrimiçi deneyin veya tüm test senaryolarını doğrulayın .

Açıklama:

žy       # Push 128
  ‚      # Pair it with the (implicit) input-integer
   à     # Take the maximum of this pair (128 and input)
    b    # Convert it to a binary-string
     0k  # Get the 0-based first index of a "0" in this binary-string
         # (and output it implicitly as result)

C, 31 bayt

f(x){return(x-160>>20-x/16)+2;}

Çevrimiçi deneyin!

Gcc ile 27 bayt (-O0)

f(x){x=(x-160>>20-x/16)+2;}

Alternatifler, 31 ve 33 bayt

f(x){return(10>>15-x/16)+7>>2;}
f(x){return x/128-(-3>>15-x/16);}

Bu ifadeleri Aha ile oynarken buldum! birkaç yıl önce superoptimizer .