अंतराल में शून्य


14

आपका काम एक समारोह या कार्यक्रम है कि दो गैर नकारात्मक पूर्णांक लेता है लिखना है iऔर k( ikबाहर कितने शून्य अगर आप से सभी पूर्ण संख्याओं लिखा लिखते हैं), और आंकड़ा iकरने के लिए kएक टुकड़े पर अपनी पसंद के आधार में (सम्मिलित) कागज की। आउटपुट इस पूर्णांक, शून्य की संख्या, स्टडआउट या समान करने के लिए।

-30%यदि आप तीसरा तर्क भी स्वीकार करते हैं b, तो संख्याओं को लिखने के लिए पूर्णांक आधार। इस बोनस को प्राप्त करने के लिए कम से कम दो आधारों को संभाला जाना चाहिए।

  • आप किसी भी आधार में इनपुट को स्वीकार कर सकते हैं, और आप परीक्षण मामलों के बीच आधार को बदल सकते हैं।
  • आप तर्क को स्वीकार कर सकते हैं i, kऔर वैकल्पिक रूप bसे किसी भी क्रम में आपको पसंद कर सकते हैं।
  • उत्तर को कम से कम एक आधार को संभालना चाहिए जो एकात्मक नहीं है।

टेस्ट केस (बेस 10 में):

i k -> output
10 10 -> 1
0 27 -> 3
100 200 -> 22
0 500 -> 92

यह कोड-गोल्फ है; सबसे कम बाइट्स जीतते हैं।


2
यदि आप मामले से मामले में चाहे जिस आधार के साथ जा सकते हैं, क्या आप आधार k और प्रिंट 0 या 1 में से प्रत्येक ऐसा नहीं कर सकते हैं, क्या यह = 0 पर निर्भर करता है?
स्टीफन टीटी

4
आप एक आधार के रूप में यूरीरी को बाहर करना चाह सकते हैं, अन्यथा यह समस्या तुच्छ है: इनपुट प्राप्त करें, प्रिंट करें 0.
मेगो

क्या आप अन्य ठिकानों के लिए कुछ परीक्षण मामलों को जोड़ सकते हैं?
मॉर्गन थ्रैप

3
मुझे लगता है कि आधार तर्क की आवश्यकता होती है तो यह अधिक दिलचस्प होगा। "आपकी पसंद का आधार" मेरे लिए अजीब है।
एलेक्स ए।

1
हां, @AlexA। लेकिन अब इसे बदलने में बहुत देर हो चुकी है, इसमें 10 जवाब दिए गए हैं।
फिलिप हगलुंड

जवाबों:


17

जेली, 1 बाइट

¬

यह आधार का उपयोग करता है k+2, जिस स्थिति में एक एकल 0 iff iहै। यह दो तर्क लेता है, लेकिन केवल पहले वाले पर तार्किक लागू नहीं होता है।

अगर हम धोखा नहीं देना चाहते हैं:

7 बाइट्स - 30% = 4.9

-1.1 अंकों के साथ @ डेनिस

rb⁵$¬SS

इससे बोनस मिलता है।

             dyadic link:
r            inclusive range
 b⁵$           Convert all to base input.
    ¬          Vectorized logical NOT
     S         Sum up 0th digits, 1st digits, etc.
      S        Sum all values

7
यह दूसरा जेली कार्यक्रम है जिसे मैंने अपने फोन पर लिखा है।
२०

13
अरे, 1 बाइट? हमें एक मौका दें।
21

2
यह किसी भी अन्य भाषा में बहुत कम बाइट्स में आसानी से किया जा सकता है। मैं कहता हूं कि नॉन-चीटिंग वर्जन से चिपके रहो।
21

13
@ETHproductions प्रश्न के नियम स्पष्ट रूप से ऐसा करने की अनुमति देते हैं। धोखा है या नहीं, इसका जवाब है नियमों के लिए कॉल।
डेनिस

8

पायथन 2, 36 बाइट्स

lambda a,b:`range(a,b+1)`.count('0')

`` चाल के लिए मैलाडफ़िश को श्रेय ।


1
प्रोग्रामिंग पहेलियाँ और कोड गोल्फ में आपका स्वागत है! यह एक अच्छा पहला उत्तर है। :)
एलेक्स ए।

वाह! मुझे नहीं पता था कि यह काम कर रहा है!
दांतल

6

05AB1E , 3 1 बाइट

आधार का उपयोग करता है k+2जैसे जेली उत्तर, कोड:

_

स्पष्टीकरण:

_  # Logical NOT operator

3 बाइट नॉन-चीटिंग संस्करण:

कोड:

Ÿ0¢

स्पष्टीकरण:

Ÿ    # Inclusive range
 0¢  # Count zeroes

बग के कारण बोनस मुझे 3.5 बाइट देता है :

ŸB)0¢

स्पष्टीकरण:

Ÿ      # Inclusive range
 B     # Convert to base input
  )    # Wrap into an array (which should not be needed)
   0¢  # Count zeroes

CP-1252 एन्कोडिंग का उपयोग करता है।


यह कैसे काम करता है?
२१:१

@ThomasKwa स्पष्टीकरण जोड़ा गया
अदनान

5

जाप, 3 बाइट्स

+!U

आधार का उपयोग करता है k+2, जेली उत्तर के रूप में। एक शून्य iff है i==0इसे ऑनलाइन टेस्ट करें!

बेहतर संस्करण, 10 8 बाइट्स

UòV ¬è'0

यह एक आधार का उपयोग करता है 10. इसे ऑनलाइन टेस्ट करें!

बोनस संस्करण, 14 12 बाइट्स - 30% = 8.4

UòV msW ¬è'0

अफसोस की बात है, गोल्फ के साथ मैंने किया, बोनस अब इसके लायक नहीं है ... इसे ऑनलाइन टेस्ट करें!

यह काम किस प्रकार करता है

UòV msW ¬è'0   // Implicit: U = start int, V = end int, W = base
UòV            // Create the inclusive range [U..V].
    msW        // Map each item by turning it into a base-W string.
        ¬      // Join into a string.
         è'0   // Count the number of occurances of the string "0".

5

ईएस 6, 91 86 - 30% = 60.2 बाइट्स

(i,k,b=10)=>([...Array(k+1-i)].map((_,n)=>(i+n).toString(b))+'0').match(/0/g).length-1

या 3 (2.1) बाइट्स को बचाएं यदि b को 10 में डिफ़ॉल्ट करने की आवश्यकता नहीं है।

सबसे अच्छा गैर-बोनस संस्करण मैं कर सकता था 65 बाइट्स:

(i,k)=>([...Array(k+1).keys()].slice(i)+'0').match(/0/g).length-1

संपादित करें: @ edc65 की शून्य-गिनती चाल का उपयोग करके 5 बाइट्स सहेजे गए।


जैसा कि मैंने अपने उत्तर के लिए वोट प्राप्त करने का प्रबंधन नहीं किया है, मैं आपका (कम से कम मेरा नाम अंदर)
edc65

4

गंभीरता से, 10 बाइट्स

'0,,u@xεjc

स्पष्टीकरण:

'0,,u@xεjc
'0,,u       push "0", i, k+1
     @x     swap i and k+1, range(i, k+1)
       εjc  join on empty string and count 0s

इसे ऑनलाइन आज़माएं!

बोनस के साथ: 11.9 बाइट्स

'0,,u@x,╗`╜@¡`Mεjc

इसे ऑनलाइन आज़माएं!

स्पष्टीकरण:

'0,,u@x,╗`╜@¡`MΣc
'0,,u@x             push "0", range(i, k+1)
       ,╗           push b to register 0
         `   `M     map:
          ╜@¡         push b, push string of a written in base b
               Σc   sum (concat for strings), count 0s

3

CJam, 12 10 3 बाइट्स

li!

यह शॉर्टकट @ThomasKwa का उपयोग करता है।

यदि इसकी अनुमति नहीं है, तो यहां 10 बाइट का जवाब है।

q~),>s'0e=

अच्छा और छोटा! @ मेगो के सीरियसली जवाब देने जैसा काम करता है।

धन्यवाद @ डेनिस!

मज़ा आया मेरा पहला सीजेएम उत्तर लिखने में!

यहाँ यह कोशिश करो!


3

टी-एसक्यूएल, 394 बाइट्स (कोई बोनस नहीं)

मैंने 'क्यों नहीं ’का आंकड़ा लगाया , है ना?

DECLARE @i INT, @k INT SET @i = 100 SET @k = 200  WITH g AS (SELECT @i AS n UNION ALL SELECT n+1 FROM g WHERE n+1<=@k ) SELECT LEN(n) AS c FROM (SELECT STUFF((SELECT REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(n, 1, ''), 2, ''), 3, ''), 4, ''), 5, ''), 6, ''), 7, ''), 8, ''), 9, ''), ' ', '') FROM g FOR XML PATH ('')) ,1,0,'') n ) a OPTION (maxrecursion 0)

और दोस्ताना एक:

-- CG!

DECLARE @i INT, @k INT 
SET @i = 100
SET @k = 200

WITH g AS 
(
    SELECT @i AS n
    UNION ALL
    SELECT n+1 FROM g WHERE n+1<=@k
)

SELECT LEN(n) AS c FROM 
(
    SELECT 
        STUFF((SELECT REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(n, 1, ''), 2, ''), 3, ''), 4, ''), 5, ''), 6, ''), 7, ''), 8, ''), 9, ''), ' ', '')
FROM g FOR XML PATH ('')) ,1,0,'') n
) a

OPTION (maxrecursion 0)

यह समर्पण है।
बृहस्पतिवार

3

रूबी, 46 - 30% = 32.2 बाइट्स

आप शायद इसे और अधिक बढ़ा सकते हैं, लेकिन कम से कम मुझे 30% बोनस मिलेगा!

->i,k,b{((i..k).map{|a|a.to_s b}*"").count ?0}

... या बोनस के बिना (27 बाइट्स)

->i,k{([*i..k]*"").count ?0}

सुझावों का स्वागत है, फिर भी इस पूरी "रूबी" चीज को सीख रहे हैं।


अच्छा उत्तर, आपको मानचित्र का उपयोग करते समय स्पैट ऑपरेटर की आवश्यकता नहीं है, यह 1 बाइट बचा सकता है। पहले मामले में (i..k)उतना ही अच्छा है [*i..k]
जीबी

2

ब्रेकीलॉग , 26 बाइट्स

,{,.e?}?:1frcS:0xlI,Sl-I=.

सूची के रूप में इनपुट लेता है [i,k]

व्याख्या

,{    }?:1f                § Unify the output with a list of all inputs which verify the
                           § predicate between brackets {...} with output set as the input
                           § of the main predicate

  ,.e?                     § Unify the input with a number between i and k with the ouput
                           § being the list [i,k]

           rcS             § Reverse the list and concatenate everything into a single
                           § number (we reverse it to not lose the leading 0 if i = 0 when
                           § we concatenate into a single number). Call this number S.

              :0xlI        § Remove all occurences of 0 from S, call I the length of this new
                           § number with no zeros

                   ,Sl-I=. § Output the length of S minus I.

2

जूलिया, 48 बाइट्स - 30% = 33.6

f(i,k,b)=sum(j->sum(c->c<49,[base(b,j)...]),i:k)

यह एक फ़ंक्शन है जो तीन पूर्णांक को स्वीकार करता है और एक पूर्णांक देता है। एक तर्क आधार को निर्दिष्ट करता है, इसलिए यह बोनस के लिए योग्य है।

Ungolfed:

function f(i, k, b)
    # For each j in the inclusive range i to k, convert j to base
    # b as a string, splat the string into a character array, and
    # compare each character to the ASCII code 49 (i.e. '1'). The
    # condition will only be true if the character is '0'. We sum
    # these booleans to get the number of zeros in that number,
    # then we sum over the set of sums to get the result.
    sum(j -> sum(c -> c < 49, [base(b, j)...]), i:k)
end

बोनस लागू करने से यह (34 बाइट) लागू नहीं होने की तुलना में मुश्किल से ही एक अंक प्राप्त होता है:

f(i,k)=sum(c->c<49,[join(i:k)...])


2

पायथ, 6.3 बाइट्स, बोनस के साथ (9 बाइट्स - 30%)

/sjRQ}EE0

स्पष्टीकरण:

  jRQ     - [conv_base(Q, d) for d in V]
     }EE  - inclusive_range(eval(input), eval(input))
 s        - sum(^, [])
/       0 - ^.count(0)

इसे यहाँ आज़माएँ

या बोनस के बिना 7 बाइट्स:

/`}EE\0

स्पष्टीकरण:

  }EE   - inclusive_range(eval(input), eval(input))
 `      - repr(^)
/    \0 - ^.count("0")

इसे यहाँ आज़माएँ

या एक परीक्षण सूट का उपयोग करें


मुझे लगता है कि बोनस मिलना इसके लायक है:/sjRQ}EE0
FryAmTheEggman

एह, यह एक आधार रूपांतरण के साथ एक ही कोड है, मुझे पूरा यकीन है कि आप जानते हैं कि आप क्या कर रहे हैं, बस एक बोनस की समस्या आपको अलग-अलग सामान और गिनती करने के लिए मजबूर करती है ...: P
FryAmTheEggman

2

PHP, 50 बाइट्स

केवल दशमलव का समर्थन करता है

<?=substr_count(join(range($argv[1],$argv[2])),0);

बोनस 63 के साथ दशमलव और बाइनरी का समर्थन करता है

<?=substr_count(join(array_map([2=>decbin,10=>""][$argv[3]],range($argv[1],$argv[2]))),0);

बोनस 77.7 के साथ दशमलव, हेक्साडेसिमल, ऑक्टल और बाइनरी का समर्थन करता है

<?=substr_count(join(array_map([2=>decbin,8=>decoct,10=>"",16=>dechex][$argv[3]],range($argv[1],$argv[2]))),0);

बेस 78 - बोनस 78.4 के साथ समर्थन करता है

<?=substr_count(join(array_map(function($i){return base_convert($i,10,$_GET[2]);},range($_GET[0],$_GET[1]))),0);

अच्छा संग्रह! बेस 64 सहित एक संस्करण 3 ए करने के लिए देखभाल? : D
टाइटस

@ आधार 64 का क्रम कैसा है? क्यों नहीं en.wikipedia.org/wiki/Ascii85 या सभी प्रिंट करने योग्य
अस्की चर के

2

जावास्क्रिप्ट (ईएस 6), 50 (71 - 30%)

(n,k,b)=>eval("for(o=0;n<=k;++n)o+=n.toString(b)").match(/0/g).length-1

कोई बोनस नहीं, आधार k + 2 10 बाइट्स है(i,k)=>+!i

कोई बोनस नहीं, एकतरफा 8 बाइट्स हैं(i,k)=>0

परीक्षा

f=(n,k,b)=>eval("for(o=0;n<=k;++n)o+=n.toString(b)").match(/0/g).length-1

function go() {
  var i=I.value.match(/\d+/g)
  R.textContent = f(i[0],i[1],i[2])
}

go()
i,k,b:<input id=I value='0,500,10' oninput="go()">
<span id=R></span>


यदि आप o='0'लूप से पहले चलते हैं तो आपका कोड तब भी काम करना जारी रखता है k<i
नील

@ अच्छा, लेकिन कल्पना कहती है (i ≤ k)अद्यतन मैंने यह कोशिश की, लेकिन वास्तव में यह k <i
edc65

ठीक है, इसने मेरे लिए काम किया (और मुझे पता है कि युक्ति की गारंटी है कि मैं <= k, लेकिन जब आपका कोड दुर्घटनाग्रस्त हो जाता है, तो मेरे कोड की तुलना करके केवल k <i - 1!)
नील

@ नील उह ठीक है अब मैं इसे प्राप्त करता हूं। यह एक समझदार जवाब नहीं देता है लेकिन कम से कम दुर्घटना नहीं करता है
edc65

1
@ForcentVintier वैसे भी आपके इनपुट के बाद मैंने कुछ बाइट्स बचाने वाले कोड को संशोधित किया
edc65


1

लुआ 74 बाइट्स

z,c=io.read,""for a=z(),z()do c=c..a end o,b=string.gsub(c,"0","")print(b)

यह करने के लिए एक अधिक प्रभावी तरीका होगा ...

मुझे लगा कि मैं वास्तव में यहाँ कुछ पर था:

c,m,z=0,math,io.read for a=z(),1+z()do c=c+((m.floor(a/10))%10==0 and 1 or a%100==0 and 1 or a%10==0 and 1 or 0) end print(c)

लेकिन अफसोस ... यह लंबे और लंबे समय तक हो रहा है जैसा कि मुझे एहसास है कि अधिक से अधिक शून्य मैं भूल गया हूं ...


1

एपीएल, 22 बाइट्स

{+/'0'⍷∊0⍕¨(⍺-1)↓⍳⍵}

यह एक विडंबनापूर्ण कार्य है जो बाएँ और दाएँ पर सीमा सीमाओं को स्वीकार करता है और एक पूर्णांक देता है।

Ungolfed:

           (⍺-1)↓⍳⍵}  ⍝ Construct the range ⍺..⍵ by dropping the first
                      ⍝ ⍺-1 values in the range 1..⍵
       ∊0⍕¨           ⍝ Convert each number to a string
{+/'0'⍷               ⍝ Count the occurrences of '0' in the string

इसे यहाँ आज़माएँ


1

हास्केल, 29 बाइट्स

i#k=sum[1|'0'<-show=<<[i..k]]

मैं बेस 10 का उपयोग कर रहा हूं ।

उपयोग का उदाहरण: 100 # 200->22

यह कैसे काम करता है: सूची में प्रत्येक तत्व को स्ट्रिंग प्रतिनिधित्व iसे kबदल दें, एक स्ट्रिंग में संक्षिप्त करें, 1प्रत्येक वर्ण के लिए ले जाएं '0'और उन 1एस को योग करें ।


1

MATL , 7 (10 बाइट्स - 30% बोनस)

2$:i:qYA~z

इसे ऑनलाइन आज़माएं!

यह 11.0.2 रिलीज में काम करता है , जो इस चुनौती से पहले है।

व्याख्या

2$:      % implicitly input two numbers and generate inclusive range
i:q      % input base b and generate vector [0,1,...,b-1]
YA       % convert range to base b using symbols 0,1,...,b-1. Gives 2D array
~        % logical negation. Zeros become 1, rest of symbols become 0
z        % number of nonzero elements in array

1

मतलाब: 27 बाइट्स

@(q,w)nnz(num2str(q:w)==48)

कम संख्या से बड़ी संख्या में एक वेक्टर बनाता है, फिर सभी संख्याओं को स्ट्रिंग में परिवर्तित करता है और सभी '0' प्रतीकों को गिनता है।


1

पायथन 3, 52।

बोनस को लागू करने की कोशिश की, लेकिन यह इसके लायक नहीं है।

lambda a,b:''.join(map(str,range(a,b+1))).count('0')

परीक्षण मामलों के साथ:

assert f(10, 10) == 1
assert f(0, 27) == 3
assert f(100, 200) == 22
assert f(0, 500) == 92

1
मैंने इस टिप्पणी से पहले मुखर वक्तव्य के बारे में कभी नहीं सुना। धन्यवाद दोस्त!
सागिक्स्प

1

पर्ल 6 , 23 बाइट्स

{+($^i..$^k).comb(/0/)}
  1. एक सीमा बनाता है ( $^i..$^k)
  2. निहित स्थानों के साथ मूल्यों को जोड़ता है ( .combयह एक कठिन तरीका है)
  3. सिर्फ शून्य ( .comb(/0/)) की एक सूची बनाता है
  4. उस सूची में हाथियों की संख्या लौटाता है ( +)

उपयोग:

my &zero-count = {…}

for (10,10), (0,27), (100,200), (0,500), (0,100000) {
  say zero-count |@_
}
1
3
22
92
38895

आप जानते हैं, आपके कोड के अंत में यह टिप्पणी लंबे समय तक लगती है ...
ETHproductions

@ETHproductions मैं आमतौर पर ऐसा करता हूं ताकि अगर मैं एक से अधिक तरीकों से काम करूं जो मैं देख सकता हूं कि क्या यह दूसरों की तुलना में छोटा है। मैं इसे करने के लिए और अधिक तरीके जोड़ रहा हूं, जब तक कि मुझे नहीं लगता कि मैं सबसे छोटा तरीका हूं।
ब्रैड गिलबर्ट


1

C # 112 बाइट्स

int z(int i,int k)=>String.Join("",Enumerable.Range(i,k-i+1)).Count(c=>c=='0')
  1. पहली संख्या से अंतिम संख्या तक की संख्या के साथ एक स्ट्रिंग बनाएं
  2. स्ट्रिंग में शून्य वर्णों की गणना करें

PPCG में आपका स्वागत है! मैं C # से सुपर परिचित नहीं हूं, लेकिन मुझे लगता है कि यदि आप कुछ रिक्त स्थान निकाल देते तो शायद आप कुछ बाइट्स बचा सकते थे।
0 '

धन्यवाद 0, आप सही हैं लेकिन केवल एक युगल बाइट्स। मेरा मानना ​​है कि मेरा संपादित उत्तर उन सभी स्थानों को हटा देता है जो मैं कर सकता हूं। :)
ली

1

PHP, 84 बाइट्स * .7 = 58.8 (कुर्सियां ​​2 से 36)

for(;($v=$argv)[2]>$a=$v[1]++;)$n+=substr_count(base_convert($a,10,$v[3]),0);echo$n;

या

for(;($v=$argv)[2]>$v[1];)$n+=substr_count(base_convert($v[1]++,10,$v[3]),0);echo$n;

कमांड लाइन तर्कों से दशमलव इनपुट लेता है; साथ चलाना -r


मौज-मस्ती के लिए: <?=0एकात्मक और अक्षरज्ञान का समर्थन करता है। ;)
टाइटस

1

पॉवरशेल, 56 54 51 48 42 बाइट्स

param($i,$k)(-join($i..$k)-split0).count-1

इनपुट लेता है, $i..$kफिर एक सीमा बनाता है जो -joinएक स्ट्रिंग में एक साथ आता है, इसके बाद एक रेगेक्स -splitकमांड होता है जो 0एस पर स्लाइस करके स्ट्रिंग को एक सरणी में अलग करता है । हम ().count-1कितने शून्य को मापने के लिए उसका एनकैप्सुलेट करते हैं। यह पाइपलाइन पर छोड़ दिया गया है, और आउटपुट निहित है।

सहेजे गए 6 बाइट @ConnorLSW की बदौलत

इसे ऑनलाइन आज़माएं!


PowerShell में बेस-हैंडलिंग सीमित है और मनमाना आधारों का समर्थन नहीं करता है, इसलिए मैं बोनस के लिए नहीं जा रहा हूं।


param($i,$k)(-join($i..$k)-split'0').Length-1मेरे लिए काम करता है, -3, या .Count-1और भी अधिक सहेजने के लिए उपयोग , अभी तक हालांकि परीक्षण नहीं किया है।
Colsw

@ConnorLSW धन्यवाद! चारों ओर उद्धरण की आवश्यकता नहीं है '0', ताकि कुछ और छंटनी हो।
AdmBorkBork

एक अच्छा, मैं हमेशा भूल जाते हैं जैसे कि शक्तियां संभालती संख्या।
कोलों

0

जावा 8, 102 बाइट्स - 30% = 71.4

क्यों नहीं।

(i,k,b)->{int j=0;for(;i<=k;i++)for(char c:Integer.toString(i,b).toCharArray())if(c==48)j++;return j;}

बोनस के बिना, 96 बाइट्स (ताकि बोनस वास्तव में मेरे स्कोर में सुधार हो!):

(i,k)->{int j=0;for(;i<=k;i++)for(char c:String.valueOf(i).toCharArray())if(c==48)j++;return j;}

यह निम्नलिखित लागू करता है:

interface Function {
    public int apply(int i, int k, int b);
}

@ mbomb007 समस्या यह है कि इसे इस तरह से प्रारूपित करने से प्रश्न में लीडरबोर्ड पर 102 बाइट्स के रूप में उत्तर मिलता है।
हाइपरनेत्रिनो

यह लीडरबोर्ड के साथ एक दोष है, पोस्ट नहीं। यह देखिए कि दूसरे जवाबों में से अधिकांश उसी तरह से कैसे कर रहे हैं।
mbomb007

@ mbomb007 मैं जवाब देख रहा हूं और मुझे विभिन्न स्वरूपों का एक टन दिखाई दे रहा है, जिनमें से कुछ लीडरबोर्ड के साथ काम करते हैं, जिनमें से कुछ नहीं।
हाइपरनेत्रिनो

0

क्लोजर, 50 49 बाइट्स

#(count(re-seq #"0"(apply str(range %(inc %2)))))

ओह रेगेक्स फ़िल्टरिंग से छोटा है। मूल:

#(count(filter #{\0}(apply str(range %(inc %2)))))

बहुत बुनियादी, \0दूसरों को हटाने के लिए चरित्र के सेट का उपयोग करता है और गिनता है कि कितने पाए गए।

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.