चुनौती

पूर्णांक को देखते हुए, Qसीमा में -(2^100) ≤ Q ≤ 2^100, उस संख्या में अंकों की संख्या (आधार 10 में) का उत्पादन होता है।

नियम

हां, आप संख्या को एक स्ट्रिंग के रूप में ले सकते हैं और इसकी लंबाई पा सकते हैं।

सभी गणितीय कार्यों की अनुमति है।

आप किसी भी आधार में इनपुट ले सकते हैं, लेकिन आउटपुट बेस 10 में संख्या की लंबाई होना चाहिए।

ऋणात्मक संख्याओं के लिए माइनस साइन की गिनती न करें। संख्या में दशमलव बिंदु कभी नहीं होगा।

शून्य या तो एक या शून्य अंक हो सकता है।

मान लें कि इनपुट हमेशा एक मान्य पूर्णांक होगा।

उदाहरण

Input > Output

-45 > 2
12548026 > 8
33107638153846291829 > 20
-20000 > 5
0 > 1 or 0

जीतना

बाइट्स में सबसे छोटा कोड जीतता है।

code-golf number integer

— बीटा डिके
स्रोत

10

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

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

एक और बिलियन सॉल्यूशन, लेकिन इस व्यक्ति का सबसे छोटा नाम है (जब तक कोई ऐसी भाषा न खोज ले जो इस कार्य को शून्य बाइट्स में करता है)। यह Brachylog 1 और Brachylog 2 दोनों में काम करना चाहिए।

यह एक फ़ंक्शन सबमिशन है (TIO लिंक में एक कमांड-लाइन तर्क है जो दुभाषिया को एक पूरे कार्यक्रम के बजाय एक व्यक्तिगत फ़ंक्शन को चलाने का कारण बनता है), आंशिक रूप से क्योंकि अन्यथा हमें आउटपुट पर बाइट्स खर्च करना होगा, आंशिक रूप से क्योंकि ब्रेग्लॉग का सिंटैक्स नकारात्मक पर संख्या कुछ असामान्य है और इस प्रोग्राम को एक फ़ंक्शन इनपुट सिंटैक्स के बारे में किसी भी संभावित तर्क को हल करता है।

यह अक्सर मुझे परेशान करता है कि ब्रेकीग्लॉट के अधिकांश बिल्डर सकारात्मक लोगों की तरह नकारात्मक संख्याओं का इलाज करते हैं, लेकिन यह तथ्य यहां काम में आ रहा है। मुझे लगता है कि हर गोल्फिंग भाषा के साथ ट्रेडऑफ़ शामिल हैं।

यह वह जगह है जहां मैं स्क्रॉल करना बंद कर देता हूं ... यह अपमानजनक है!

— बोगडान एलेक्जेंड्रू

39

टैक्सी , 1118 बाइट्स

1 is waiting at Starchild Numerology.Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to Chop Suey.Go to Chop Suey:n 1 r 1 l 4 r 1 l.Pickup a passenger going to Crime Lab.'-' is waiting at Writer's Depot.Go to Writer's Depot:n 1 l 3 l.Pickup a passenger going to Crime Lab.Go to Crime Lab:n 1 r 2 r 2 l.Switch to plan "n" if no one is waiting.-1 is waiting at Starchild Numerology.[n]0 is waiting at Starchild Numerology.Go to Starchild Numerology:s 1 r 1 l 1 l 2 l.Pickup a passenger going to Cyclone.Pickup a passenger going to Addition Alley.Go to Cyclone:e 1 l 2 r.[r]Pickup a passenger going to Cyclone.Pickup a passenger going to Addition Alley.Go to Zoom Zoom:n.Go to Addition Alley:w 1 l 1 r.Pickup a passenger going to Addition Alley.Go to Chop Suey:n 1 r 2 r.Switch to plan "f" if no one is waiting.Pickup a passenger going to Sunny Skies Park.Go to Sunny Skies Park:n 1 l 3 l 1 l.Go to Cyclone:n 1 l.Switch to plan "r".[f]Go to Addition Alley:n 1 l 2 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:n 1 r 1 r.Pickup a passenger going to Post Office.Go to Post Office:n 1 l 1 r.

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

Ungolfed:

1 is waiting at Starchild Numerology.
Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to Chop Suey.
Go to Chop Suey: north 1st right 1st left 4th right 1st left.
Pickup a passenger going to Crime Lab.
'-' is waiting at Writer's Depot.
Go to Writer's Depot: north 1st left 3rd left.
Pickup a passenger going to Crime Lab.
Go to Crime Lab: north 1st right 2nd right 2nd left.
Switch to plan "n" if no one is waiting.
-1 is waiting at Starchild Numerology.
[n]
0 is waiting at Starchild Numerology.
Go to Starchild Numerology: south 1st right 1st left 1st left 2nd left.
Pickup a passenger going to Cyclone.
Pickup a passenger going to Addition Alley.
Go to Cyclone: east 1st left 2nd right.
[r]
Pickup a passenger going to Cyclone.
Pickup a passenger going to Addition Alley.
Go to Zoom Zoom: north.
Go to Addition Alley: west 1st left 1st right.
Pickup a passenger going to Addition Alley.
Go to Chop Suey: north 1st right 2nd right.
Switch to plan "f" if no one is waiting.
Pickup a passenger going to Sunny Skies Park.
Go to Sunny Skies Park: north 1st left 3rd left 1st left.
Go to Cyclone: north 1st left.
Switch to plan "r".
[f]
Go to Addition Alley: north 1st left 2nd left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: north 1st right 1st right.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st left 1st right.

स्पष्टीकरण:

Pickup the input and split it into individual characters
Pickup the value 1.
If the first character a hyphen, add -1. Otherwise, add 0.
Keep picking up characters and adding 1 until you're out.
Convert the running total to a string and print to stdout.

— इंजीनियर टोस्ट
स्रोत

8

मैं लंबे समय से इस मुद्रा में दुबका हुआ हूं, लेकिन इस तरह का कुछ कभी नहीं देखा है

— जावा का कप

7

यदि संख्या काफी लंबी है तो क्या यह गैस से निकलेगी?

— रॉबर्ट फ्रेजर

5

यह ब्रेनफक की तुलना में बड़ा दिमाग है।

— ओमेगा

1

@ रोबर्टफ्रेसर यही कारण है कि हम Zoom Zoomहर लूप में रुक जाते हैं plan "r"। मैंने सिर्फ 100,000 अंकों तक इसका परीक्षण किया और यह कभी भी गैस से बाहर नहीं निकला। मैंने इसकी गणना नहीं की है, लेकिन मुझे लगता है कि इसे गैस के लिए भुगतान करने के लिए पर्याप्त से अधिक किराया लगता है, इसलिए यह हर लूप में टैंक को भरता है।

— इंजीनियर टोस्ट

1

@CupofJava ओह माय गोश मैं शेक्सपियर के बारे में कैसे भूल गया ।

— इंजीनियर टोस्ट

18

गणितज्ञ, १३ बाइट्स

IntegerLength

इसमें अंतर्निहित ... के लिए रिटर्न 0है 0।

— मार्टिन एंडर
स्रोत

2

गणितज्ञ प्रबल: डी

— बीटा

1

कोड गोल्फ में नहीं है :)

— ग्रेग मार्टिन

8

There's a built-in: कब नहीं है?

— TheLethalCoder

14

डीसी, ३

?Zp

ध्यान दें कि आम तौर पर अधिक सामान्य के बजाय dcनकारात्मक संख्याओं के साथ दिए जाने की आवश्यकता होती है । हालांकि, इस मामले में, या तो इस्तेमाल किया जा सकता है। यदि दिया जाता है, तो इसे एक खाली स्टैक पर एक घटाव के रूप में मानता है, फेंकता है , और फिर शेष संख्या के साथ जारी रहता है; इस प्रकार परिणाम अलग नहीं है।_--dcdc: stack empty

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

?    # input
 Z   # measure length
  p  # print

— डिजिटल आघात
स्रोत

यह सिर्फ Zएक फ़ंक्शन सबमिशन के रूप में नहीं हो सकता है ? dcइसलिए बोली + डुप्लक + अपर्ल ऑपरेटरों के साथ एक समसामयिक भाषा है, इसलिए यह कोड के मनमाने तार का पुन: उपयोग कर सकता है।

12

रेटिना , 2 बाइट्स

\d

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

रेटिना वास्तव में नहीं जानता है कि संख्याएं क्या हैं, इसलिए इनपुट को एक स्ट्रिंग के रूप में माना जाता है और हम केवल अंक वर्णों को गिनते हैं।

— मार्टिन एंडर
स्रोत

5

05AB1E , 2 बाइट्स

Äg

इसे ऑनलाइन आज़माएं! या सभी टेस्ट की कोशिश करो!

Ä  # Absolute value
 g # Length

— रिले
स्रोत

Ä, हुह? नहीं है þ? काफी उचित।

— मैजिक ऑक्टोपस Urn

@carusocomputing मैंने Äपहले सोचा था , लेकिन þएक दशमलव बिंदु को संभालना होगा, इसलिए मुझे लगता है कि यह थोड़ा बेहतर है।

— रिले

बस शांत कैसे 2 लोग एक दूसरे के 2 मिनट के भीतर 2 अलग-अलग 2 बाइट समाधान के साथ आए, मुझे नहीं लगता कि एक तिहाई हालांकि है; एक के बारे में सोचने की कोशिश कर रहा है।

— मैजिक ऑक्टोपस Urn

5

एलिस , 16 बाइट्स

//; 'q<)e
o!@i -

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

व्याख्या

इसके लिए एक आधा-सभ्य लेआउट खोजना काफी मुश्किल था। मैं अभी भी रिक्त स्थान, <और के कारण इसके साथ सुपर खुश नहीं हूं ;, लेकिन यह सबसे अच्छा है जो मैं अभी कर सकता हूं।

स्ट्रिंग की लंबाई उन बहुत ही सामान्य बिल्ट-इन में से एक है जो ऐलिस में मौजूद नहीं है, क्योंकि इसका इनपुट एक स्ट्रिंग है और इसका आउटपुट एक पूर्णांक है (और सभी ऐलिस कमांड सख्ती से पूर्णांक या स्ट्रिंग्स के लिए पूर्णांक हैं)। हम एक तार की लंबाई को साधारण मोड में टेप पर लिखकर और फिर कार्डिनल मोड में इसका अंत खोज सकते हैं।

/      Reflect to SE. Switch to Ordinal. While in Ordinal mode, the IP will bounce
       diagonally up and down through the code.
!      Store an implicit empty string on the tape, does nothing.
;      Discard an implicit empty string, does nothing.
i      Read all input as a string.
'-     Push "-".
<      Set the horizontal component of the IP's direction to west, so we're bouncing
       back now.
-      Remove substring. This deletes the minus sign if it exists.
'i     Push "i".
;      Discard it again.
!      Store the input, minus a potential minus sign, on the tape.
/      Reflect to W. Switch to Cardinal. The IP immediately wraps to the
       last column.
e)     Search the tape to the right for a -1, which will be found at the end
       of the string we stored there.
<      Does nothing.
q      Push the tape head's position, which is equal to the string length.
'<sp>  Push " ".
;      Discard it again.
/      Reflect to NW. Switch to Ordinal. The IP immediately bounces off
       the top boundary to move SW instead.
o      Implicitly convert the string length to a string and print it.
       IP bounces off the bottom left corner, moves back NE.
/      Reflect to S. Switch to Cardinal.
!      Store an implicit 0 on the tape, irrelevant.
       The IP wraps back to the first line.
/      Reflect to NE. Switch to Ordinal. The IP immediately bounces off
       the top boundary to move SE instead.
@      Terminate the program.

मैंने कार्डिनल मोड में H(पूर्ण मान) के साथ माइनस साइन का ध्यान रखने की भी कोशिश की , लेकिन अतिरिक्त मोड स्विच हमेशा मेरे प्रयासों में अधिक महंगा होता गया।

— मार्टिन एंडर
स्रोत

4

PHP, 23 बाइट्स

<?=-~log10(abs($argn));

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

निरपेक्ष मान के आधार 10 का लॉग इन करने के लिए एक कास्ट इंट

शून्य के लिए इनपुट के रूप में log10 वापस देता है INFजिसे गलत समझा जाता है

बेहतर तरीका यह है कि +3 बाइट्स के $argnसाथ प्रतिस्थापित किया जाए$argn?:1

PHP, 27 बाइट्स

<?=strlen($argn)-($argn<0);

स्ट्रिंग लंबाई माइनस बूलियन कम है तो शून्य

+2 स्ट्रिंग तुलना के लिए बाइट्स $argn<"0"

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

PHP, 32 बाइट्स

<?=preg_match_all("#\d#",$argn);

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

रेगेक्स सभी अंकों की गणना करता है

35 बाइट्स

<?=strlen($argn)-strspn($argn,"-");

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

स्ट्रिंग की लंबाई माइनस काउंट -

strspn

— जार्ग हुल्सरमन
स्रोत

1

पहला काम नहीं करता है, उदाहरण के लिए 10, क्योंकि ^कम प्राथमिकता है। आप इसे ठीक कर सकते हैं -~।

— user63956

बस क्यों नहीं <?=strlen(abs($argn));?

— रोबर्टो 06

@ user63956 लॉग 10 वाला संस्करण इनपुट शून्य के मामलों में काम नहीं कर सकता है इसलिए मैं इसे हटा देता हूं।

— जोर्ग ह्यूल्समैन

1

@ JörgHülsermann सिर्फ क्यों नहीं $argn?:1? यह 26 बाइट्स वाला log10()और होगा abs()।

— user63956

1

@ JörgHülsermann -~$xके बराबर है ((int)$x)+1। <?=-~log10(abs($argn?:1));काम करने लगता है।

— user63956

4

फोरट्रान 95 (गैफरान), 121 96 95 बाइट्स

program c
character b
call get_command_argument(1,b,length=i)
print*,i-index(b,'-')
end program

स्पष्टीकरण:
तर्क की लंबाई से '-' चिह्न के सूचकांक को घटाता है।
Arrays 1 पर फोरट्रान से शुरू होता है, और इंडेक्स () 0 मिलता है अगर प्रतीक नहीं मिला।

संपादित करें: अंतर्निहित पूर्णांक "i" पर स्विच किया गया, समेकित तर्क गेटर भी।

संपादित करें: -1 बाइट @ थसोगगुआ को धन्यवाद

— waffleston
स्रोत

1

PPCG में आपका स्वागत है!

— मार्टिन एंडर

3

पॉवरशेल, 24 बाइट्स

"$args"-replace'-'|% Le*

इनपुट के "निरपेक्ष" मान को एक स्ट्रिंग में रखता है और इसे 'लंबाई' गुण प्राप्त होता है।

1 बाइट से कम "".Length

जब तक किसी को पीएस में एक नंबर के एब्स को प्राप्त करने का बेहतर तरीका नहीं मिल जाता है, यह संभवतः उतना ही छोटा है जितना इसे मिलेगा।

— colsw
स्रोत

कैसे के बारे में "$args".trim('-')|% Le*? :)

— जो भी '

3

05AB1E , 2 बाइट्स

þg

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

   # Implicit input [a]...
þ  # Only the digits in [a]...
 g # length of [a]...
   # Implicit output.

— जादू ऑक्टोपस Urn
स्रोत

3

ब्रेनफक , 37 बाइट्स

-[+>+[+<]>+]>->,[-<->]<[>+>],[<+>,]<.

आउटपुट बाइट मान द्वारा है।

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

व्याख्या

-[+>+[+<]>+]>->  Constant for 45 (from esolangs wiki)
,                Read a byte of input
[-<->]           Subtract that byte from 45
<[>+>]           If the result is nonzero then increment a cell and move to the right
                 (0 means it was a minus; so not counted)
,[<+>,]          Read a byte and increment the cell to its left until EOF is reached
<.               Print the cell that was being incremented

— बिजनेस कैट
स्रोत

क्या टीआईओ लिंक के लिए एक पाद जोड़ना संभव है जो एक परिणाम के रूप में परिणाम देता है?

— बीटा क्षय

@ बेताडे ने जोड़ा

— बिजनेस कैट

यह शानदार है, धन्यवाद: डी

— बीटा डिके

3

रूबी, १५ 11 + 1 = 16 12 बाइट्स

-nझंडे का उपयोग करता है ।

p~/$/-~/\d/

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

व्याख्या

                  # -n flag gets one line of input implicitly
p                 # Print
 ~/$/             # Position of end of line (aka string length) in input
     -            # minus
      ~/\d/       # Position of first digit (1 if negative number, 0 otherwise)

— मूल्य स्याही
स्रोत

1

यह कौन सा जादू है?

— चौलेट

2

@Chowlett ने एक स्पष्टीकरण जोड़ा।

— मूल्य इंक

2

जेली , 2 बाइट्स

DL

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

यह वस्तुतः क्या पूछा गया था:

DL - Main link number n         e.g. -45
D  - convert to a decimal list       [-4,-5]
 L - get the length                  2

— जोनाथन एलन
स्रोत

यह एक दिलचस्प अंतर्निर्मित है, Dदशमलव पर काम करता है ? -1.2उत्पादन होगा [-1,-0.2]? खुद की कोशिश की, यह नहीं है।

— मैजिक ऑक्टोपस Urn

1

काफी नहीं, आधार रूपांतरण केवल इकाइयों के लिए नीचे जाता है, उदाहरण के लिए, 654.321Dउपज होगा [6,5,4.321](वास्तव में [6.0,5.0,4.321000000000026])

— जोनाथन एलन

[-6.0, -5.0, -4.321000000000026], वास्तव में, जाहिरा तौर पर।

— मैजिक ऑक्टोपस Urn

आह - हाँ बस संपादित - अस्थायी बिंदु अंकगणित।

— जोनाथन एलन

2

सीजाम , 5 बाइट्स

q'--,

स्ट्रिंग आधारित।

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

विशुद्ध रूप से गणित-आधारित समाधान के लिए 9 बाइट्स:

riz)AmLm]

या आधार रूपांतरण के साथ एक और 5:

riAb,

— बिजनेस कैट
स्रोत

या 5: भी rizs,।

— मार्टिन एंडर

2

जाप , 5 बाइट्स

a s l

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

व्याख्या

 a s l
Ua s l
Ua     # take the absolute value of the input
   s   # and turn it into a string
     l # and return its length

— ल्यूक
स्रोत

2

RProgN 2 , 2 बाइट्स

âL

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

बस इनपुट का निरपेक्ष मूल्य प्राप्त करता है, और अंकों की गणना करता है।

— Ataco
स्रोत

2

जावास्क्रिप्ट (ईएस 6), 27 26 25 24 बाइट्स

एक स्ट्रिंग के रूप में इनपुट लेता है।

s=>s.match(/\d/g).length

Arnauld के लिए धन्यवाद दो बाइट्स सहेजे गए।

— झबरा
स्रोत

आपका शीर्षक 23 बाइट्स कहता है, लेकिन आपका कोड 24 है ... हालाँकि, यह 23 बाइट्स हैं s=>`${s>0?s:-s}`.length:!

— डोम हेस्टिंग्स

धन्यवाद, @DomHastings आपको अपना एक अलग उत्तर देना चाहिए क्योंकि यह मेरा एक अलग दृष्टिकोण है।

— झबरा

2

जावास्क्रिप्ट (ईएस 6), 23 बाइट्स

s=>`${s>0?s:-s}`.length

झबरा के जवाब के लिए अलग दृष्टिकोण ।

— डोम हेस्टिंग्स
स्रोत

3

s=>s.length-(s<0)6 बाइट्स बचाता है

— जोहान कार्लसन ने

2

जावा, 30 24 बाइट्स

i->(""+i.abs()).length()

मान लिया iजाता है कि एBigInteger । इसके अलावा, प्रकार को प्रासंगिक किया जाता है, इसलिए किसी भी आयात की आवश्यकता नहीं है, जैसा कि परीक्षण कोड में दिखाया गया है।

परीक्षा

// No imports
class Pcg120897 {
  public static void main(String[] args) {
    java.util.function.ToIntFunction<java.math.BigInteger> f =
        // No full class declaration past here
        i->(""+i.abs()).length()
        // No full class declaration before here
      ;
    System.out.println(f.applyAsInt(new java.math.BigInteger("-1267650600228229401496703205376"))); // -(2^100)
    System.out.println(f.applyAsInt(new java.math.BigInteger("1267650600228229401496703205376"))); // (2^100)
  }
}

बचाता है

30 -> 24 बाइट्स: @cliffroot के लिए धन्यवाद

— ओलिवियर ग्रेजायर
स्रोत

+""के बजाय .toString()?

— क्लिफरॉट

2

नमूना कोड प्रदान करने के लिए +1 यह दर्शाता है कि यह कैसे लागू किया गया है और iआपके उत्तर के प्रकार को स्पष्ट करने के लिए । मुझे लगता है कि अधिक लंबोदर जवाबों को ऐसा करना चाहिए।

— प्रहार

1

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

-9 बाइट्स रॉड के लिए धन्यवाद।

lambda i:len(`abs(i)`)

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

— totallyhuman
स्रोत

1

len(`abs(s)`)नंबर के साथ इनपुट कम है

— रॉड

2

बहुत बुरा अजगर समारोह रचना नहीं है। यह सिर्फ होगा len∘repr∘abs।

— रॉबर्टो बोनालेट

1

ब्रेन-फ्लैक , 63 बाइट्स

([({})]((((()()()()())){}{})){}{})((){[()](<{}>)}{})([{}][]<>)

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

यह कोड का 62 बाइट्स है और +1 बाइट के लिए है -a ध्वज के ।

मैंने दो अन्य तरीकों की कोशिश की, लेकिन दुर्भाग्य से वे दोनों लंबे थे:

([]<({}[((((()()()()())){}{})){}{}]<>)((){[()](<{}>)}{})>)({}[{}])

([]<>)<>({}<>)((((([][]())){}{})){}{}[{}])((){[()](<{}>)}{})([{}]{})

यह बहुत छोटा जवाब होना चाहिए । वास्तव में, यदि हमें नकारात्मक संख्याओं का समर्थन नहीं करना है, तो हम कर सकते हैं:

([]<>)

लेकिन हमें पहले इनपुट की तुलना 45 (ASCII) से करनी होगी - ) से , जो इस उत्तर की सबसे बाइट काउंट है।

एक अंकगणितीय समाधान कम हो सकता है।

— DJMcMayhem
स्रोत

मैं 62 बाइट्स गिनता हूं ..?

— पूरी तरह से

1

@totallyhuman मेरा संपादन देखें

— DJMcMayhem

49 बाइट्स:([{}]((((()()()()())){}{})){}{})({(<()>)}{}[]<>)

— नाइट्रोडॉन

1

रूबी, 20 बाइट्स

->a{a.abs.to_s.size}

— marmeladze
स्रोत

FYI करें: इसे कॉल करने के लिए आप इसे करें:->a{a.abs.to_s.size}[-95]

— Filip Bartuzi

या सिर्फ क्लासिक तरीका -->a{a.abs.to_s.size}.call(-92)

— १el

2

गोल्फ का रास्ता नहीं: D

— फिलिप बार्टुज़ि

1

अजगर, 4 बाइट्स

l`.a

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

सभी परीक्षण मामले

— ताली
स्रोत

1

आर, 18 बाइट्स

nchar(abs(scan()))

— स्वेन होहेंस्टीन
स्रोत

1

ऐलिस , 10 बाइट्स (गैर-प्रतिस्पर्धात्मक)

 /d/
O@IHc

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

यह एक गैर-प्रतिस्पर्धात्मक समाधान है, क्योंकि जिस समय इस चुनौती को पोस्ट किया cगया था , कमांड को आधिकारिक (और केवल: D) दुभाषिया में लगाया गया था। मार्टिन एंडर ने इस बीच इसे ठीक किया, इसलिए अब यह काम करता है।

व्याख्या

निर्देश पॉइंटर दो दर्पणों ( /) से कई बार गुजरता है , इसलिए इसका पालन करना थोड़ा मुश्किल हो सकता है। मैं इसे स्पष्ट रूप से समझाने की कोशिश करूंगा, कार्डिनल दिशाओं का उपयोग करके (जैसे कि एन ऊपर है, SW बाईं ओर नीचे है ...)। मैं /1बाईं ओर दर्पण, और /2सबसे दाहिनी ओर बुलाता हूँ ।

Command    Direction    Comment
               E        Execution starts from the upper-left corner going right
   /1        E → SE     Passing through the mirror changes direction and switches
                        to ordinal mode (string operations)
   I        SE → NE     Push the input string to the stack, then bounce against
                        the bottom of the code
   /2       NE → S      Back to cardinal mode (numeric operations)
   H           S        Pop n, push abs(n). Execution wraps from bottom to top
   /2        S → SE     Ordinal mode again
   c        SE → NW     Pop s, push each char of s separatedly. Bounce against
                        the bottom right corner
   /2       NW → W      Cardinal mode
   d           W        Push the depth of the stack (which is now equal to 
                        the number of characters in abs(input))
   /1     W → NW → SW   Pass through the mirror, then bounce agains the top
   O        SW → NE     Output the result, then bounce on the bottom left corner
   /1       NE → S      Last mirror, I promise
   @           S        Terminate execution

— सिंह
स्रोत

1

जीएनयू मेक , 78 बाइट्स

शाही शैली:

$(eval T=$1)$(foreach D,$(shell seq 9),$(eval T=$(subst $D,? ,$T)))$(words $T)

कार्यात्मक शैली, 113 बाइट्स:

$(eval 2?=$(shell seq 9))$(if $2,$(call $0,$(subst $(word 1,$2),? ,$1),$(wordlist 2,$(words $2),$2)),$(words $1))

शुद्ध मेक, 83 बाइट्स:

$(eval T=$1)$(foreach D,0 1 2 3 4 5 6 7 8 9,$(eval T=$(subst $D,? ,$T)))$(words $T)

— eush77
स्रोत

1

सी ++, 80 76 बाइट्स

#include<string>
int main(int,char**c){printf("%d",strlen(c[1])-(*c[1]<46));}

तर्क की लंबाई को प्रिंट करता है, माइनस 1 यदि पहला वर्ण माइनस है, क्योंकि अगर या यदि boolरूपांतरण की गारंटी देता है1true0false

4 बाइट्स के लिए धन्यवाद @ इंगित करने के लिए कि मैं <46इसके बजाय का उपयोग कर सकता हूं =='-', और इसके बजाय सरणी को स्थगित करने के लिए[]

— TAS
स्रोत

तुम बदल कर 4 बाइट बंद दाढ़ी सकता है c[1][0]=='-'के साथ *c[1]<46क्योंकि हम इनपुट मान हमेशा एक मान्य पूर्णांक हो जाएगा कर सकते हैं। (जब तक '-' के अलावा अन्य उपसर्गों की अनुमति है ...)

— स्क्वीडी

@Squidy ओह वाह अच्छा लगता है! मैंने उम्र को कम करने के लिए अपने दिमाग को इस तरह छोटा कर दिया और कभी उसके साथ नहीं आया! सुझाव के लिए धन्यवाद, और विशेष रूप से मुझे पता करने के लिए PCCG पर हस्ताक्षर करने के लिए!

— तस

1

टीआई-बेसिक (TI-84 Plus CE, OS 5.2+), 6 बाइट्स

length(toString(abs(Ans

टीआई-बेसिक एक टोकन भाषा है; length(और toString(दो बाइट्स हैं।

Ansअंतर्निहित इनपुट के रूप में उपयोग किया जाता है; अंतिम (केवल) पंक्ति का मान अनुमानित रूप से वापस किया जाता है।

बहुत आसान है, शून्य से छुटकारा पाने के लिए निरपेक्ष मूल्य लेता है, स्ट्रिंग में परिवर्तित होता है, स्ट्रिंग की लंबाई लौटाता है।

एक 6-बाइट गणितीय दृष्टिकोण जो 0 के लिए काम नहीं करता है:

1+log(abs(Ans

— pizzapants184
स्रोत

कौन से कैलकुलेटर हैं toString(?

— kamoroso94

@ kamoroso94 TI-84 Plus CE

— pizzapants184

1

परी / जीपी , 13 बाइट्स

n->#digits(n)

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

— alephalpha
स्रोत

मेरा नंबर कब तक है?

चुनौती

नियम

उदाहरण

जीतना

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

टैक्सी , 1118 बाइट्स

गणितज्ञ, १३ बाइट्स

डीसी, ३

रेटिना , 2 बाइट्स

05AB1E , 2 बाइट्स

एलिस , 16 बाइट्स

व्याख्या

PHP, 23 बाइट्स

PHP, 27 बाइट्स

PHP, 32 बाइट्स

35 बाइट्स

फोरट्रान 95 (गैफरान), 121 96 95 बाइट्स

पॉवरशेल, 24 बाइट्स

05AB1E , 2 बाइट्स

ब्रेनफक , 37 बाइट्स

व्याख्या

रूबी, १५ 11 + 1 = 16 12 बाइट्स

व्याख्या

जेली , 2 बाइट्स

सीजाम , 5 बाइट्स

जाप , 5 बाइट्स

व्याख्या

RProgN 2 , 2 बाइट्स

जावास्क्रिप्ट (ईएस 6), 27 26 25 24 बाइट्स

जावास्क्रिप्ट (ईएस 6), 23 बाइट्स

जावा, 30 24 बाइट्स

परीक्षा

बचाता है

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

ब्रेन-फ्लैक , 63 बाइट्स

रूबी, 20 बाइट्स

अजगर, 4 बाइट्स

आर, 18 बाइट्स

ऐलिस , 10 बाइट्स (गैर-प्रतिस्पर्धात्मक)

व्याख्या

जीएनयू मेक , 78 बाइट्स

सी ++, 80 76 बाइट्स

टीआई-बेसिक (TI-84 Plus CE, OS 5.2+), 6 बाइट्स

परी / जीपी , 13 बाइट्स