हैप्पी राउंड पाई डे


25

गोल पाई दिवस मनाने के लिए, आपको एक सर्कल के व्यास में होने वाले कार्यक्रम को बनाने के लिए आज की तारीख का लाभ उठाना चाहिए और व्यास को 3.1416 से गुणा करके इसकी परिधि का उत्पादन करना चाहिए, जहां आज की तारीख का उपयोग करके 3.1416 प्राप्त किया जाना चाहिए।

Input 3
Output 9.4248
etc.

इनपुट के रूप में दिनांक नहीं लेता है। आपको तिथि के सभी घटकों का उपयोग करने की आवश्यकता नहीं है, लेकिन पाई के अंक एक दिनांक ऑब्जेक्ट को प्रारूपित करने या इसे प्राप्त करने के लिए किसी दिनांक ऑब्जेक्ट का उपयोग करने से आना चाहिए। अब तक के जवाब अच्छे लगते हैं।

सुनिश्चित नहीं है कि और क्या निर्दिष्ट करना है। अब तक के सभी जवाब मिलते हैं जो मैं उम्मीद कर रहा था।

मेरी बाधा यह थी कि आपको पाई के साथ आने के लिए तारीख के घटकों का उपयोग करना चाहिए। आप निश्चित रूप से घटकों का उपयोग कर सकते हैं, 0 से गुणा करें फिर 3.1416 जोड़ें, लेकिन यह उबाऊ है और कीमती आकर्षण बर्बाद करता है!

सबसे छोटा कोड जीतता है!


61
14/3/16 में ऐसा क्या खास है?
नील

5
आज की तारीख का उपयोग कर परिभाषित करें । मैं तारीख को एक संख्या के रूप में प्राप्त कर सकता हूं, अपने आप से विभाजित कर सकता हूं और एक पूर्वनिर्धारित स्थिरांक से गुणा कर सकता हूंpi
लुइस मेंडो

7
@ नील: क्योंकि 3/14/16 और 31/4/16 डी / एम / वाई प्रारूप में वास्तविक वास्तविक तारीखें नहीं हैं। 14 महीने नहीं हैं, और अप्रैल में केवल 30 दिन हैं। मुझे व्यक्तिगत रूप से लगता है कि हमें 6/28/32 (M / D / Y) या शायद 6/2/83 (D / M / Y) तक इंतजार करना चाहिए, लेकिन यह एक पूरी तरह से पवित्र युद्ध है।
डारेल हॉफमैन

8
@DarrelHoffman तुम एक ताऊ आदमी हो जो मैं देख रहा हूँ।
jmasterx

16
अफसोस की बात है, अमेरिकी सांस्कृतिक क्षेत्र में इसका एकमात्र पीआई दिवस है। यूरोपीय, अपने मूर्खतापूर्ण lexigraphcially-sensible तारीख आदेश के साथ, वार्षिक PI दिन नहीं मिलता है। उनके लिए एक दुख की बात सोचिए, जैसा कि आप आज अपने पी (ई) खा रहे हैं।
TED

जवाबों:


8

05AB1E, 16 13 बाइट्स

žfžežg¦¦J*4°/

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

दुर्भाग्य से फ्लोट्स के साथ एक बग यह एक बाइट को लंबा बनाता है: /

3 बाइट्स बंद करने के लिए अदनान को धन्यवाद।

व्याख्या

žfžežg¦¦J*4°/
žfžežg         push month day year
      ¦¦       slice off the first two chars from the year (2016 -> 16)
        J      join them together into a number
         *     multiply by input
          4°/  divide by 1e4

¦¦इसके बजाय 2000-तीन बाइट्स कम हैं;)
अदनान

11
+1 žfžežgएक अच्छा चेक शब्द लगता है :)
यो '

UTF-8 में, यह 19 बाइट्स का योग है।
OldBunny2800

3
@ OldBunny2800 05AB1E एन्कोडिंग के लिए CP1252 का उपयोग करता है।
एक स्पेगेटो

झांकियों के साथ बग?
कैलक्यूलेटरफिलीन

19

सी, 32 बाइट्स

#define f(d)d*time(0)/464083315.

यदि थोड़ी और सटीकता खोना ठीक है, तो मैं इसे 29 बाइट्स तक नीचे ला सकता हूं जो दशमलव के पिछले 4 अंकों तक सटीक है (इस पोस्टिंग के समय के अनुसार):

#define f(d)d*time(0)/46408e4

#include<time.h>?
बिल्ली

इसके अलावा, निष्पादन योग्य कोड कहां है? यह प्रीप्रोसेसर के लिए कॉपी / पेस्ट करने के लिए कुछ है; एक स्निपेट। हम यहाँ पर चलने योग्य कार्यान्वयन पसंद करते हैं।
बिल्ली

3
@ टैक अधिकांश सी कंपाइलर आपको #includeमानक लाइब्रेरी हेडर की आवश्यकता नहीं है । उन्हें मैन्युअल रूप से शामिल करना लगभग हमेशा एक अच्छा विचार है, लेकिन उन्हें छोड़ देना सी में कोड गोल्फिंग को बहुत आसान बनाता है।
जोश

12
@tac जवाब एक फ़ंक्शन के रूप में ज्यादातर समान व्यवहार करता है। यहाँ पर कई उत्तर स्टैंडअलोन फ़ंक्शन भी हैं। मैं mainइस एकल तर्क मैक्रो को कैसे प्रदर्शित करने के लिए एक नमूना फ़ंक्शन प्रदान करने के लिए बिंदु नहीं देखता ।
जोश

1
@ मुझे लगता है कि मानक [कोड-गोल्फ] नियम यह है कि जब तक कि निषिद्ध कार्य ठीक नहीं हैं।
माइंडविन

14

AppleScript, 122 120 बाइट्स

set a to current date
(display dialog""default answer"")'s text returned*(month of a+day of a*.01+year of a*1e-4 mod.01)

चर ए

चर एक दिनांक वस्तु है। मैं अपनी सभी तारीखों की जानकारी बंद करता हूं।

महीना, दिन और साल

माह, दिन और वर्ष कॉल वास्तव में एक ऐसी वस्तु लौटाते हैं जो सामान्य रूप से एक स्ट्रिंग लौटाती है। इसे एक नंबर के रूप में ठीक से उपयोग करने के लिए, मैंने इसे एक नंबर पर स्वचालित रूप से डालने के लिए गणितीय कार्यों के साथ दोनों तरफ से घेर लिया है।

1e-4

1e-4से एक बाइट कम है .0001

mod.01

.AppleScript के लिए एक विभाजक के रूप में कार्य करता है स्वतः पूर्ण। इसका उपयोग करके, मैं मॉडुलो का उपयोग कर सकता हूं और फिर भी इसे अपने लिए एक बाइट रख सकता हूं।

कोई रिटर्न स्टेटमेंट / लॉग नहीं

स्वचालित रूप से परिकलित अंतिम मान प्रोग्राम द्वारा लौटाया जाता है। मैं रिटर्न बॉक्स के माध्यम से गणना की गई संख्या को आउटपुट करता हूं।

और यहाँ चल रहा है!

pi दिन gif


8
जावा को भूल जाइए, यह सबसे
क्रियात्मक

@Downgoat मुझे लगता है कि यह "अंग्रेजी की तरह पठनीय" या कुछ और माना जाता है ... हम इसे अपनी एक नौकरी में थोड़ा उपयोग करते हैं और जब भी मुझे इस तरह की लिपियों में बदलाव करना पड़ता है तो मैं वास्तव में नापसंद करता हूं।
क्रिस क्रेफ़िस

@ChrisCirefice हाँ, नहीं - इस भाषा के कुछ कष्टप्रद टुकड़े हैं। यानी वॉल्यूम सिस्टम वॉल्यूम।
Addison Crump

13

गणितज्ञ + कोरुटिल्स, 20 बाइट्स

<<"!date +%m.%d%y"#&

सौभाग्य से, Mathematica एक अभिव्यक्ति के रूप में एक बाहरी कमांड के आउटपुट की व्याख्या करता है। इस मामले में आउटपुट एक वैध फ्लोट है, ताकि फ़ंक्शन तर्क के साथ गुणा #निहित हो।


यह एक ऐसा संयोजन है जिसका मुझे पता नहीं था।
कैलक्यूलेटरफ्लिन 7

12

लुआ, 30 27 बाइट्स

print(...*os.date"%m.%d%y")

प्रारूप में वर्तमान तिथि द्वारा पहला कमांड-लाइन तर्क गुणा करें mm.ddyy, जो वास्तव में है 03.1416


9

बैश + बीसी, २५ २० बाइट्स

date +%m.%d%y\*$1|bc

पांच बाइट बचाने के लिए मैनटवर्क का धन्यवाद ।

उपयोग:

$ ./pi-round.sh 3
9.4248

यहाँ यह स्ट्रिंग संकेतन बहुत लंबा है:date +%m.%d%y\*$1|bc
मैनटवर्क

@manatwork आप सही हैं! मैं खुद उसी के साथ खेल रहा था, लेकिन यह पता नहीं लगा सका कि इसे कैसे संयोजित किया जाए। धन्यवाद!
औरल

6

PowerShell v2 +, 46 28 25 बाइट्स

$args[0]*(Date -F "M.dy")

बहुत सीधा। इनपुट लेता है $args[0]दिनांक के आधार पर और यह पलता के रूप में स्वरूपितM.dy ( Get-निहित है)। ध्यान दें कि यह v2 पर चलने के लिए एक लंबा समय ले सकता है क्योंकि यह निपटाने से पहले संभव प्रतिस्थापन Date(जैसे, आपके %PATH%पर्यावरण चर, आदि की जांच) को पुनरावृत्त करता है Get-Date


क्या आप अंतरिक्ष में कटौती कर सकते हैं -f?
briantist

1
@briantist दुख की बात है, यहाँ नहीं। हम PowerShell की पैटर्न मान्यता का दुरुपयोग कर रहे हैं, क्योंकि वास्तविक ध्वज है -Format। इस तरह के झंडे के साथ, आपको बस स्पष्ट होना चाहिए (उदाहरण के लिए, यदि आपके पास -Debugऔर -Delimiterसंभावित विकल्प के रूप में, आपको अंतर करने के लिए कम से कम तीन अक्षरों की आवश्यकता होगी)। अंतरिक्ष को हटाने का मतलब है कि PowerShell ध्वज को पार्स करने की कोशिश करता है, -F"M.dy"लेकिन एक तर्क नहीं मिल सकता है जो मेल खाता है, और इसलिए एक त्रुटि फेंकता है।
AdmBorkBork

आह्ह्ह अब मैं इसे देख रहा हूँ। यही मुझे लंबे समय के बाद ट्रेन में पढ़ने के लिए मिलता है। मैं इसे -fऑपरेटर के रूप में व्याख्या कर रहा था । अब कुल समझ में आता है।
ब्रायन्टिस्ट

6

आर 3.2.4, 55 51 47 बाइट्स

संपादित करें मुझे एहसास हुआ कि मैं scanधन्यवाद @FryAmTheEggMan का उपयोग कर सकता हूं। @MickyT की बदौलत 4 बाइट्स कम हुए।

scan()*as.numeric(format(Sys.Date(),'%m.%d%y'))

पहली कोशिश एक गोल्फ में। हैप्पी पी डे!


1
PPCG में आपका स्वागत है :) मैं कोई आर प्रोग्रामर नहीं हूं, लेकिन आपको एक नामित फ़ंक्शन की आपूर्ति करने की आवश्यकता नहीं है, बस एक अभिव्यक्ति जो किसी फ़ंक्शन का मूल्यांकन करती है। इसलिए मुझे पूरा यकीन है कि आप ड्रॉप कर सकते हैं f=
FryAmTheEggman

2
आप भी आगे जाने के लिए और क्या कर सकते हैंscan()*as.numeric(format(Sys.Date(),'%m.%d%y'))
MickyT

2
as.doubleके बजाय as.numericएक अतिरिक्त बाइट बचाता है
Flounderer


5

पायथ, 19 बाइट्स

*Qvs[.d4\..d5>2`.d3

यहाँ यह कोशिश करो!
केवल 2016-03-14 पर काम करता है।

व्याख्या

* Qvs [.d4 \ _ d5> 2`.d3 # Q = इनपुट

     .d4 # चालू माह
        \। # महीने और दिन के बीच डॉट
          .d5 # महीने का वर्तमान दिन
             > 2`.d3 # वर्ष के अंतिम 2 अंक
   s # # सब कुछ एक स्ट्रिंग में समेटना
  v # eval -> फ्लोट में कनवर्ट करें
* Q # परिधि प्राप्त करने के लिए इनपुट से गुणा करें

5

PHP, 45 26 25 24 बाइट्स

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

<?=$argv[1]*date(~‘Ñ•†);

इस तरह से चलाएं:

echo '<?=$argv[1]*date(~‘Ñ•†);' | php -- 3
  • 19 बाइट्स का उपयोग करके सहेजा गया date() बजाय काDateTime::format
  • इको टैग का उपयोग करके एक बाइट को बचाया
  • ISO-8859 एन्कोडिंग का उपयोग करके और प्रारूप स्ट्रिंग की उपेक्षा करके एक बाइट को सहेजा गया, इसलिए दोहरे उद्धरण चिह्नों की आवश्यकता नहीं है। CLI से इसे चलाने पर आपके टर्मिनल को थोड़ा गड़बड़ कर सकता है, लेकिन काम करता है।

आप सही करने के लिए रजिस्टर मान हैं, तो आप उपयोग कर सकते हैं $nके माध्यम से /?n=3यूआरएल में।
मार्टिअन

@Martijn जिसे PHP 4.1 की आवश्यकता है या php.iniफ़ाइल का उपयोग करके इसे सेट करना है । aross ने कहा कि इससे पहले कि इस तरह की विधि से दूर जाना चाहता है।
इस्माइल मिगुएल

4

पायथन 2, 58 वर्ण

import time
print float(time.strftime("%m.%d%y"))*input()

कोशिश करो!

स्पष्टीकरण:

import time                                   # Import time time module
print                                         # Print the following
      float(                                  # Cast to float
            time.strftime("%m.%d%y"))         # Format the time as MM.DDYY
                                     *input() # Multiply by input

4

जावास्क्रिप्ट, 41 39 अक्षर

यह एक मालिकाना फ़ायरफ़ॉक्स-केवल विधि का उपयोग करता है ।

d=>new Date().toLocaleFormat`%m.%d%y`*d

करने के लिए धन्यवाद:

नमूना रन (फ़ायरफ़ॉक्स वेब कंसोल):

> (d=>new Date().toLocaleFormat`%m.%d%y`*d)(3)
9.4248

नोट: यह फायरबग कंसोल में विफल हो जाएगा। लगता है कि Firebug, टेम्पलेट स्ट्रिंग पर कुछ विस्तार करता है बदलने `%m.%d%y`में `%__fb_scopedVars(m).d%y`यह कोड को पार करने से पहले।


1
-2 बाइट्स:d=>new Date().toLocaleFormat`%m.%d%y`*d
इस्माइल मिगुएल

ओह। [facepalm] पता नहीं क्यों, मैं आमतौर पर उस चाल को भूल जाता हूं। हालांकि मैं नियमित रूप से टेम्पलेट स्ट्रिंग्स का उपयोग करता हूं।
मैनेटवर्क

मुझे पता है। मैं वास्तव में या तो नहीं मिलता है। मैं जो पाने की कोशिश कर रहा हूं, उसे newवहां से हटाने का एक तरीका है ।
इस्माइल मिगुएल

मैंने इसे फ़ायरफ़ॉक्स पर आज़माया और इसने ठीक काम किया। मैं कंसोल से कॉपी-पेस्ट करता हूं। जब से मैंने ('...')2 बैकटिक्स के साथ प्रतिस्थापित किया है, वह 2 बाइट्स है।
इस्माईल मिगुएल


2

गणितज्ञ, ५४

.0001FromDigits[Now@{"Month","Day","YearShort"},100]#&

2

विटसी + कोरुटिल्स, 19 बाइट्स

'y%d%.m%+ etad',W*N

स्पष्टीकरण:

'y%d%.m%+ etad',W*N
'y%d%.m%+ etad'       Push 'date +%m.%d%y' to the stack.
               ,      Execute as shell.
                W     Grab input from STDIN and eval it.
                 *    Multiply the top two items
                  N   Output as a number.

इसे सुरक्षित मोड में नहीं चलाया जा सकता है, क्योंकि यह रनटाइम की निष्पादन विधि का उपयोग करता है।


2

SpecBAS , 39 बाइट्स

1 INPUT n: ?n*VAL DATE$(TIME,"mm.ddyy")

असाधारण नहीं। प्रारूप एक स्ट्रिंग के रूप में तिथि करता है और फिर VALउस स्ट्रिंग के (मान) द्वारा इनपुट को गुणा करता है ।


दुभाषिया / संकलक लिंक?
बिल्ली


मैंने आपके उत्तर में लिंक को संपादित किया है
बिल्ली

2

ओरेकल 11 जी, 50 49 बाइट्स

SELECT &n*to_char(sysdate,'MM.DDYY')FROM dual;

एक कम बाइट, @MickyT के लिए धन्यवाद


इससे पहले कि आप अंतरिक्ष ड्रॉप कर सकते हैंFROM
MickyT

2

पायथन 3, 74 54 बाइट्स

Loovjo के उत्तर की तरह डेटाइम के बजाय समय मॉड्यूल का उपयोग करना

import time
lambda n:n*float(time.strftime('%m.%d%y'))

पिछला समाधान

from datetime import*
lambda n:n*float(datetime.now().strftime('%m.%d%y'))

2
@Zenadix मेटा सर्वसम्मति यह है कि अनाम कार्य ठीक हैं।
FryAmTheEggman

2

Google शीट, 13 बाइट्स

बाइट्स की गणना एक बाइट प्रति वर्ण, शून्य बाइट्स प्रति सेल के साथ नामित इनपुट सेल, दो बाइट्स को छोड़कर की जाती है। किसी सूत्र को प्रारंभ करने के लिए बराबर चिह्न की गणना नहीं की जाती है। (मुझे नहीं पता कि यह मानक है, कृपया मुझे सही करें अगर मैं गलत हूं।)

कोड देखने के लिए स्निपेट चलाएं।

table {
  empty-cells: show;
}
table,
th,
td {
  border: 1px solid black;
}
<table border="1">
  <tr>
    <th></th>
    <th>1</th>
    <th>2</th>
    <th>3</th>
  </tr>
  <tr>
    <td>A</td>
    <td>&lt;input></td>
    <td style="text-align:right">3.1416</td>
    <td style="font-family:'Ubuntu Mono',monospace">=<span style="color:rgb(257,142,29)">A1</span>*<span style="color:rgb(126,55,148)">A2</span>
    </td>
  </tr>
</table>

यह काम करता है क्योंकि आप Google शीट में अपने स्वयं के दिनांक स्वरूपों को परिभाषित कर सकते हैं। मैंने इसे ऐसा बनाया है कि यह है<month>.<day><year>


आप इस स्कोरिंग प्रणाली के बारे में मेटा से पूछना चाहते हैं। ; पी
एडिसन क्रम्प

तब करेंगे जब मेरे पास समय होगा (शायद आज रात मैरीलैंड में)
OldBunny2800

2

पाइके , 16 15 बाइट्स, ASCII एन्कोडिंग

C867wä%J"bT4^/*

स्पष्टीकरण:

C867            - b,c,d = year, day, month
    wä          - a = base_96("ä") - 100
      %         - a = a%b
       J"       - a = "".join([a,c,d])
         b      - b = base(a, 10)
          T4^   - a = 10^4
             /  - a = a/b
              * - imp_print(a*eval_or_not(input))

या 11 बाइट्स (गैर-प्रतिस्पर्धी), (स्ट्रिंग सिंगल्स, 2 अंक वर्ष, स्ट्रिंग सारांश कहते हैं)

C856\.R3sb*

स्पष्टीकरण:

C856        - a,b,c = 2d_year, day, month
    \.      - d = "."
      R3    - a,b,c = b,c,a
        s   - a = sum(a,b,c)
         b  - a = base(a, 10)
          * - imp_print(a*eval_or_not(input))

मुझे लगता है कि यह pyke.sourceforge.net की तुलना में एक अलग Pyke है ? क्या आप भाषा युक्ति का लिंक पोस्ट कर सकते हैं?
रॉबर्ट फ्रेजर


बस सोच रहा था, क्या एन्कोडिंग पेक का उपयोग करता है? यदि यह UTF-8 है, तो यह 16 बाइट्स है।
OldBunny2800

1
@ OldBunny2800 इससे कोई फर्क नहीं पड़ता; इस मामले में यह अच्छी पुरानी एएससीआई का उपयोग करता है क्योंकि सभी कोड अंक 255 से नीचे हैं। मेटा के अनुसार। ccodegolf.stackexchange.com/a/5879/32686 , उत्तर यह परिभाषित कर सकता है कि यह बिना किसी लागत के खुद का एन्कोडिंग है।
ब्लू

1

जावास्क्रिप्ट ईएस 6, 68 66 बाइट्स

सहेजे गए 2 बाइट्स देव-नल के लिए धन्यवाद!

x=>x*((a=new Date).getMonth()+1+"."+a.getDate()+(a.getYear()-100))

अनाम फ़ंक्शन। कुछ उपयोग:

f(1)    == 3.1416
f(5)    == 15.708
f(f(2)) == 19.73930112

1
आप का उपयोग करने की कोशिश करनी चाहिएwith
इस्माइल मिगुएल

1

Tcl / Tk, 58 बाइट्स

puts [expr {[gets stdin]*[clock f [clock se] -f %N.%d%g]}]

(यह एक पूर्ण कार्यक्रम है। यदि आप स्पष्ट putsविवरण को धोखा देना चाहते हैं और निकालना चाहते हैं तो यह केवल 51 बाइट्स है - आपको सीधे tclsh और टाइप / पेस्ट करना होगा, हालांकि :)

expr {[gets stdin]*[clock f [clock se] -f %N.%d%g]}

1

जावा 114 बाइट्स

public double p(double d){
  return (d*Double.parseDouble(new SimpleDateFormat("MM.ddyy").format(new Date())));
}

96 बाइट्स:float p(float d){return d*Float.parseFloat(new SimpleDateFormat("MM.ddyy").format(new Date()));}
Addison Crump

1

रैकेट, 112 वर्ण

(define d(seconds->date(current-seconds)))(*(read)(+(date-month d)(*(date-day d).01)(*(-(date-year d)2e3)1e-4)))

मानक रीडर सिंटैक्स में इनपुट से संख्या पढ़ता है।


1

टीआई -84 बेसिक, 30 बाइट्स

TI-83/84 कैलकुलेटर पर काम करता है; ई वैज्ञानिक अंकन टोकन है और ~ नकारात्मक टोकन है।

Prompt D:getDate:D(Ans(2)+E~4Ans(1)-.2+.01Ans(3

परीक्षण का मामला

D=?3
          9.4248



1

टीआई-बेसिक, 16 13 9 बाइट्स

Xround(π,1+min(getDate

हम πन्यूनतम के बराबर दशमलव स्थानों की एक संख्या के लिए गोल करते हैं{month,day,year} , और फिर इसे इनपुट से गुणा करते हैं।

यह एक फ़ंक्शन है जो एक्स के माध्यम से इनपुट लेता है। इसे वाई-चर में से एक में स्टोर Y1करें, उदाहरण के लिए , और फिर Y1([number])होमस्क्रीन पर कॉल करें ।


कुछ असहमति प्रतीत होती है कि इनपुट लेने Ansकी अनुमति है।
AdmBorkBork

यह केवल 13 बाइट्स कैसे है? इनपुट ए की गिनती नहीं, मैं 22 अक्षर गिनता हूं।
OldBunny2800

1
@ OldBunny2800 TI-BASIC टोकन आधारित है, प्रत्येक परमाणु को एक या दो बाइट्स के रूप में दर्शाया जाता है।
एडम

@ OldBunny2800 कोड पेज यहाँ है
lirtosiast

1

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

⎕×0.01⊥⌽⍎2⌽8↑2↓⍕⎕TS

⎕TSहै 2016 3 14 12 34 56 789यानी मार्च 14 वां , 2016 12:35 बजे से पहले सही
स्ट्रिंग में मेकअप, यानी '2016 3 14 12 34 56 789'
8↑2↓पहले छोड़ दो ('20' ) तो अगले आठ (ले '16 3 14 ')
2⌽दो अक्षर घुमाने के लिए, दे रही है ' 3 14 16'
(संख्या में मेक 3 14 16)
सूची रिवर्स दे 16 14 3
0.01⊥आधार में मूल्यांकन ¹/₁₀₀ , = 16 × 0.01 = + 15 × 0.01¹ + 3 × 0.01 0.00 = 0.0016 + 0.15 + 3 = 3.1416
⎕× इनपुट के साथ गुणा करें

या

⎕×1E¯4⊥⌽⍎2⌽7↑2↓⍕⎕TS

⎕TSहै 2016 3 14 12 34 56 789, यानी मार्च 14 वां , 2016 12:35 बजे से पहले सही
स्ट्रिंग में मेकअप, यानी '2016 3 14 12 34 56 789'
7↑2↓ड्रॉप पहले दो ( '20') तो अगले सात (ले '16 3 14')
2⌽बारी बारी से दो वर्ण, दे रही है' 3 1416'
संख्या में मेकअप ( 3 1416)
सूची रिवर्स दे 1416 3
1E¯4⊥आधार में मूल्यांकन ¹/ ×, = 1416 × 0.01¹ + 3 × 0.01 0. = 0.1416 + 3 = 3.1416
⎕×इनपुट से गुणा करें


यह कैसे काम करता है?
OldBunny2800

1
@ OldBunny2800 साफ़ करें?
अड्म

हां, धन्यवाद, लेकिन UTF-8 में यह 38 बाइट्स है।
OldBunny2800


1
@ OldBunny2800 APL अपने स्वयं के कोड पृष्ठ का उपयोग करता है - इनमें से प्रत्येक वर्ण एक बाइट है। (यह ASCII के दिमाग से पहले था ...)
एक स्पेगेटो
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.