প্রদত্ত দৈর্ঘ্যের স্ট্রেইট-চেইন অ্যালক * নেসের সংখ্যা

Question

একটি স্ট্রেইট-চেইন অ্যালকেন * একটি একক (অ্যালকেন), ডাবল (অ্যালকিন), বা ট্রিপল বন্ড (অ্যালকিন) দ্বারা সংযুক্ত কার্বন পরমাণুর ক্রম হিসাবে সংজ্ঞায়িত হয় (অন্তর্নিহিত হাইড্রোজেন ব্যবহৃত হয়।) কার্বন পরমাণু কেবল 4 টি বন্ধন গঠন করতে পারে তাই কোনও কার্বন পরমাণু চারটির বেশি বন্ড রাখতে বাধ্য হতে পারে না। একটি স্ট্রেইট-চেইন অ্যালক * নে তার কার্বন-কার্বন বন্ধনগুলির তালিকা হিসাবে উপস্থাপিত হতে পারে।

এগুলি বৈধ স্ট্রেইট-চেইন অ্যালক * নেসের কয়েকটি উদাহরণ:

[]       CH4              Methane
[1]      CH3-CH3          Ethane
[2]      CH2=CH2          Ethene
[3]      CH≡CH            Ethyne
[1,1]    CH3-CH2-CH3      Propane
[1,2]    CH3-CH=CH2       Propene
[1,3]    CH3-C≡CH         Propyne
[2,1]    CH2=CH-CH3       Propene
[2,2]    CH2=C=CH2        Allene (Propadiene)
[3,1]    CH≡C-CH3         Propyne 
[1,1,1]  CH3-CH2-CH2-CH3  Butane
...

যদিও এটিগুলি নয়, কমপক্ষে একটি কার্বন পরমাণুর 4 টিরও বেশি বন্ড থাকবে:

[2,3]
[3,2]
[3,3]
...

আপনার কাজটি এমন একটি প্রোগ্রাম / ফাংশন তৈরি করা যা একটি ধনাত্মক পূর্ণসংখ্যা দেওয়া হলে n, দৈর্ঘ্যে সঠিক কার্বন পরমাণুর বৈধ স্ট্রেইট-চেইন অ্যালক * নেসের সংখ্যা আউটপুট / প্রদান করে n। এটি OEIS A077998 ।

বিশেষ উল্লেখ / ব্যাখ্যা

• আপনাকে অবশ্যই 1ফিরে আসার মাধ্যমে সঠিকভাবে পরিচালনা করতে হবে 1।
• অ্যালক * নেস পছন্দ করে [1,2]এবং পৃথক [2,1]হিসাবে বিবেচনা করা হয়।
• প্রদত্ত দৈর্ঘ্যের সমস্ত সম্ভাব্য অ্যালক * নেসের তালিকার দৈর্ঘ্য আউটপুট ।
• আপনাকে 0 টি সঠিকভাবে পরিচালনা করতে হবে না ।

পরীক্ষার কেস:

1 => 1
2 => 3
3 => 6
4 => 14

এটি কোড গল্ফ, তাই সর্বনিম্ন বাইট গণনা জয়!

Comments

শুধু স্পষ্ট করার জন্য, একটি চেইন বৈধ হয় যদি সমস্ত টানা জোড় যোগ করা হয় <=4, তাই না?

— মালটিসেন

সংশোধন করা হয়েছে। @ মালটিসেন: হ্যাঁ

— জাকারি

কেন সব কিছুর জন্য একটি OEIS ক্রম আছে? : পি

— হাইপার নিউট্রিনো

@ জাচারিটি, শূন্য কার্বন পরমাণুর সাথে ঠিক একটি হাইড্রোকার্বন রয়েছে এবং এটি হ'ল শূন্য হাইড্রোজেন পরমাণুও রয়েছে। এটি পাস্কালের ত্রিভুজ হিসাবে 0 এর চেয়ে শীর্ষে 1 রয়েছে বা আক্ষরিক অর্ধেক অন্যান্য সংশ্লেষিক ক্রমগুলির জন্য ঠিক একই যুক্তি।

— পিটার টেলর

@ এমিগনা, কারণ ভুল ক্রমটি সংযুক্ত ছিল। আমি এটা সংশোধন করব।

— পিটার টেলর

Answer 1

ওসিস , 9 7 বাইট

xcd-+3V

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

এটি ওইআইএস- এ পুনরাবৃত্তি সম্পর্ক ব্যবহার করে :

a (n) = 2 * a (n-1) + a (n-2) - a (n-3)

x    Multiply a(n-1) by 2: gives 2*a(n-1)
c    Push a(n-2)
d    Push a(n-3)
-    Subtract: gives a(n-2) - a(n-3)
+    Add: gives 2*a(n-1) + a(n-2) - a(n-3)
3    Push 3: initial value for a(n-1)
V    Push 1, 1: initial values for a(n-2), a(n-3)

Comments

প্রাথমিক মানগুলির দুর্দান্ত ব্যবহার! আপনি এবার জিতলেন;)

— এমিগিনা

হ্যাঁ, সম্ভবত এটি মারার কোনও উপায় নেই।

— জাকারি

@ জাচারিটি কেবলমাত্র যদি কেউ প্রোগ্রামটি তৈরির উপায় খুঁজে বের করতে xkcdপারে।

— hBy2Py

@ hBy2Py ভাল, xkcd-+311কাজ করে , কারণ kবর্তমানে এটি একটি অপশক্তি ...

— লুইস মেন্ডো

Answer 2

এমএটিএল , 10 বাইট

7K5vBiY^1)

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

এটি OEIS এ পাওয়া বৈশিষ্ট্য ব্যবহার করে

a (n) হ'ল 3 এক্স 3 ম্যাট্রিক্সের এন-থ পাওয়ারের শীর্ষ বাম প্রবেশ [1, 1, 1; 1, 0, 0; 1, 0, 1]

7    % Push 7
K    % Push 4
5    % Push 5
v    % Concatenate all numbers into a column vector: [7; 4; 5]
B    % Convert to binary: gives 3×3 matrix [1, 1, 1; 1, 0, 0; 1, 0, 1]
i    % Input n
Y^   % Matrix power
1)   % Take the first element of the resulting matrix, i.e. its upper-left corner.
     % Implicitly display

Answer 3

ওসিস , 9 8 বাইট

আদনানকে একটি বাইট সংরক্ষণ করে

xc+d-63T

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

a(0) = 0
a(1) = 1
a(2) = 3
a(3) = 6

a(n) = xc+d-

x         # calculate 2*a(n-1)
 c        # calculate a(n-2)
  +       # add: 2*a(n-1) + a(n-2)
   d      # calculate a(n-3)
    -     # subtract: 2*a(n-1) + a(n-2) - a(n-3)

Comments

নিস! এছাড়াও, xসংক্ষিপ্ত জন্য 2*:)।

— আদনান

বিট ইয়া :- পি (আমি ইতিমধ্যে সেখানে ওএএসআইএস উত্তরটি দেখতে পাইনি)

— লুইস মেন্ডো

@ আদনান ওসিসকে বলার কোনও উপায় আছে যে আপনি আউটপুট সিকোয়েন্স সূচকটি 1 দ্বারা স্থানান্তর করতে চান? মানে, ইনপুট আর্গুমেন্টে 1 টি বিয়োগ করুন ( 0এখানে প্রাথমিক ব্যবহারের পরিবর্তে )

— লুইস মেন্ডো

@ লুইস মেন্ডো আহ, এটি এখনও কার্যকর হয় নি। তবে এটি পরবর্তী প্রকাশের জন্য একটি ভাল ধারণা :)।

— আদনান

ভবিষ্যতের রেফারেন্সের জন্য, এটি এখন প্রয়োগ করা হয়েছে

— লুইস মেন্ডো

Answer 4

জেলি, 10 বাইট

745DBæ*µḢḢ

এটি অনলাইন চেষ্টা করুন!

লুই মেন্ডোর আলগোরিদিম ব্যবহার করে ।

ব্যাখ্যা

745DBæ*µḢḢ    Main link. Argument: n
745D          Get the digits of 745
    B         Convert each to binary
     æ*       Matrix power
        ḢḢ    First element of first row

জেলি, 15 বাইট

3Rṗ’µ+2\<5PµÐfL

এটি অনলাইন চেষ্টা করুন!

নিষ্ঠুর শক্তি ব্যবহার করে।

ব্যাখ্যা

3Rṗ’µ+2\<5PµÐfL    Main link. Argument: n
3R                 Start with [1, 2, 3]
   ’               Take the (n-1)'th
  ṗ                Cartesian power
            Ðf     Filter on:
     +2\             Sums of overlapping pairs
        <5           1 for sums < 5, 0 otherwise
          P          Product: 1 if all pairs < 5
              L    Length

Answer 5

এমএটিএল , 14 বাইট

q3:Z^TTZ+!5<As

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

এটি কার্টেসিয়ান শক্তিটি [1 2 3]"উত্থাপিত" পারমাণবিক বিয়োগ 1 এর সংখ্যার সাথে উত্পন্ন করে এবং তারপরে প্রত্যয় ব্যবহার করে যে প্রতিটি কার্তেসিয়ান টুপলে যোগফলের চেয়ে আরও দুটি সংখ্যক সংখ্যক সংখ্যক বেশি নয় তা পরীক্ষা করে 4।

q    % Take number of atoms n implicitly
3:   % Push [1 2 3]
Z^   % Cartesian power. Gives a matrix with each (n-1)-tuple on a row
TT   % Push [1 1]
Z+   % 2D convolution. For each tuple this gives the sum of contiguous numbers
5<   % For each entry, gives true if less than 5
!    % Transpose
A    % True if all elements of each column are true. Gives a row vector
s    % Sum of true results. Implicitly display

Answer 6

গণিত, 48 বাইট

MatrixPower[{{1,1,1},{1,0,0},{1,0,1}},#][[1,1]]&

লুইস মেন্ডো যেমন উল্লেখ করেছেন , এটি OEIS এ A006356 । এখানে আমার মূল প্রচেষ্টা:

Count[Length@Split[#,+##<5&]&/@Tuples[{1,2,3},#-1],0|1]&

একটি ইনপুট করতে n, Tuples[{1,2,3},n-1]সব তালিকা (n-1)উপাদানের -tuples {1,2,3}একক, জন্য ডবল, অথবা ট্রিপল বন্ড সব সম্ভব সিকোয়েন্স প্রতিনিধিত্বমূলক nকার্বন পরমাণু। +##<5&একটি খাঁটি ফাংশন যা তার যুক্তির যোগফলের যোগফলের চেয়ে কম কিনা তা প্রত্যাবর্তন করে 5, তাই Split[#,+##<5&]&ধারাবাহিক উপাদানগুলির সমন্বয়ে তালিকা তৈরি করে একটি তালিকা বিভক্ত করে যার জোড়ের অঙ্কগুলি কম হয় 5। একটি বৈধ অ্যালক * নে বর্ণনা করা এই তালিকার দৈর্ঘ্য 0(যেখানে ক্ষেত্রে n=1) বা সমান 1, তাই আমি কেবল তালিকার দৈর্ঘ্যের সাথে মেলে যেখানে Count- (n-1)টিপলসের সংখ্যা 0|1।

Count[Fold[If[+##>4,4,#2]&]/@Tuples[{1,2,3},#-1],Except@4]&

If[+##>4,4,#2]&4যদি তার আর্গুমেন্টের যোগফলের চেয়ে বড় হয় 4এবং দ্বিতীয়ত যুক্তিটি দেয় তবে তা প্রদান করে । এই ফাংশনটি দিয়ে তার ইনপুটটির Fold[If[+##>4,4,#2]&]একটি বাম Foldকাজ করে। সুতরাং আমি এখানে এই অপারেটরটি প্রয়োগ করে না এমন-টিপলগুলির Countসংখ্যা । কেস যেখানে আচ্ছাদিত করা হয় যেহেতু দেহাবশেষ unevaluated যখন তার দ্বিতীয় যুক্তি খালি তালিকা ।(n-1)4n=1Fold{}

Comments

এই কাজ করবে? (অ্যাডজাস্টমেন্ট সহ ডানভাবে OEIS থেকে ছিঁড়ে ফেলা) LinearRecurrence[{2,1,-1},{1,3,6},#][[#]]&?

— জাকারি

আমি এই সাইটটিকে কেন পছন্দ করি তার একটি অংশ ম্যাথমেটিকাকে যে সমস্ত বৈশিষ্ট্য সরবরাহ করতে পারে সেগুলি সবই শিখছে :)

— নেজিনিসিস

দ্বারা this site, আপনি কি OEIS বা পিপিসি মানে?

— জাকারি

PPCG। আমি জনগণের পরামর্শ থেকে প্রচুর ম্যাথমেটিকাকে বেছে নিয়েছি।

— নেজিনিসিস

Answer 7

পাইথন, 51 বাইট

f=lambda n:n<4and(n*n+n)/2or 2*f(n-1)+f(n-2)-f(n-3)

এটি পুনরাবৃত্ত সম্পর্কের একটি সরল বাস্তবায়ন। টিম পেডারিককে 3 বাইটের জন্য ধন্যবাদ আউটপুটটি পাইথন 3 এ ভাসমান এবং পাইথন 2 এ পূর্ণসংখ্যা।

এটি অনলাইন চেষ্টা করুন!

Comments

(n*n+n)/2তুলনায় খাটো [1,3,6][n-1]। এবং যদি আপনি পাইথন 3 ব্যবহার করেন এবং ভাসমান-পয়েন্ট আউটপুটটি শেষ করতে পছন্দ না করেন (n*n+n)//2তবে তা আরও খাটো।

— টিম পেডারিক

Answer 8

পাইথ - 16 বাইট

নিষ্ঠুর শক্তি ব্যবহার করে।

lf.AgL4+VTtT^S3t

টেস্ট স্যুট ।

Comments

আমরা যারা পাইথকে "গ্রুক" করি না তাদের জন্য একটি বিবরণ সরবরাহ করা ভাল লাগবে।

— জাকারি

Answer 9

রুবি, 62 বাইট

->n{c=0
(10**n/10).times{|i|"#{i}#{i*11}"=~/[3-9]/||c+=1}
c}

মারাত্মকভাবে অক্ষম বেস 10 ব্রুট ফোর্স পদ্ধতির। অতিরিক্ত বাইটের জন্য বেস 5 তে উন্নত করা যেতে পারে।

সংখ্যাগুলি উত্পাদিত হয় যেখানে প্রতিটি অঙ্ক একটি বন্ডকে উপস্থাপন করে (এন -1 ডিজিট।) 01 এর 2বন্ড অর্ডার উপস্থাপন করে, 3 এর বন্ড অর্ডার উপস্থাপন করে 3 এর চেয়ে বেশি সংখ্যার অবৈধ।

আমরা এটির সাথে সংখ্যার সংখ্যার যোগফল যোগ করতে 11 দিয়ে গুণ করব। আবার 3 এরও বেশি সংখ্যাগুলি অবৈধ।

আমরা দুটি সংখ্যাকে একটি স্ট্রিংয়ে একত্রিত করি এবং অবৈধ সংখ্যাগুলির সন্ধানের জন্য একটি রেজেক্স সম্পাদন করি। যদি কিছু না পাওয়া যায় তবে আমরা কাউন্টারটি বাড়িয়ে দিই।

পরীক্ষা প্রোগ্রামে

f=->n{c=0
(10**n/10).times{|i|"#{i}#{i*11}"=~/[3-9]/||c+=1}
c}

p f[gets.to_i]

Answer 10

রুবি, 51 বাইট

->n{a=[1,1,3]
n.times{a<<2*a[-1]+a[-2]-a[-3]}
a[n]}

OEIS A006356 প্রতি পুনরাবৃত্ত সম্পর্কের ভিত্তিতে।

ক্রম 0,1 এবং 2 উপাদানগুলির জন্য অ্যারে দিয়ে শুরু হয় যা যথাক্রমে 1 (আমার দ্বারা গণনা করা হয়, এটি কাজ করতে), 1 এবং 3 যথাক্রমে।

স্বতঃস্ফূর্তভাবে nক্রমে আরও উপাদান যুক্ত করে, তারপরে উপাদান ফেরত দেয় n। এটি সর্বদা 2 টি উপাদানকে প্রকৃত প্রয়োজনের চেয়ে বেশি গণনা করে তবে এটি এখনও রৈখিক সময়, যা আমার আগের উত্তরের চেয়ে বেশ দক্ষ।

পরীক্ষা প্রোগ্রামে

f=->n{a=[1,1,3]
n.times{a<<2*a[-1]+a[-2]-a[-3]}
a[n]}

p f[gets.to_i]

Answer 11

গণিত, 42 40 বাইট

বাইট গণনাটি সিপি -১২২২ (উইন্ডোজ ইনস্টলেশনে ডিফল্ট) এর মতো একটি সামঞ্জস্যপূর্ণ একক-বাইট এনকোডিং ধারণ করে।

±0=±1=1;±2=3;±n_:=±(n-1)2+±(n-2)-±(n-3);

এটি কেবল অযৌক্তিক অপারেটর হিসাবে ওইআইএস-এ প্রদত্ত পুনরাবৃত্তিটি কার্যকর করে।

Answer 12

সিজেএম (19 বাইট)

{2,{__-2=+1b+}@*W=}

অনলাইন পরীক্ষা স্যুট । এটি একটি বেনামে ব্লক (ফাংশন) যা স্ট্যাকের উপর একটি আইটেম নেয় এবং একটিটিকে স্ট্যাকের উপরে ফেলে। নোট করুন যে পরীক্ষার স্যুটে অন্তর্ভুক্ত রয়েছে a(0) = 1।

ব্যবহৃত পুনরাবৃত্তি সম্পর্কিত OEIS অনুক্রম A006356 এর পর্যবেক্ষণের ভিত্তিতে তৈরি হয়েছে :

(1, 2, 1, 1, 1, ...) এর ইনভার্ট রূপান্তর a (n) = a (n-1) + 2 * a (n-2) + a (n-3) + এর সমান a (n-4) + ... + 1. এ (6) = 70 = (31 + 2 * 14 + 6 + 3 + 1 + 1)। - গ্যারি ডাব্লু। অ্যাডামসন, এপ্রিল 27 2009

কিন্তু উপযুক্ত অফসেট, যা চূড়ান্ত প্রয়োজনীয়তার সরিয়ে ফেলা সঙ্গে + 1যেমন এখন দ্বারা আচ্ছাদিত a(0)।

ব্যবচ্ছেদ

{         e# Define a block
  2,      e#   Take starting sequence [0 1] (beginning at index -1 for golfiness)
  {       e#   Loop...
    _     e#     Copy sequence so far
    _-2=+ e#     Append an extra copy of a(n-2)
    1b    e#     Sum
    +     e#     Append
  }@*     e#   ...n times
  W=      e#   Take the final value from the sequence
}

Answer 13

ব্রেন-ফ্লাক, 56 বাইট

ওইআইএস পৃষ্ঠায় প্রথম মন্তব্যে বিস্তারিত অ্যালগরিদম ব্যবহার করে।

এটি অনলাইন চেষ্টা করুন!

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

ব্যাখ্যা

ক্রমটি যেমন সংজ্ঞায়িত করা যায়:

For u(k), v(k), and w(k) such that
u(1) = v(1) = w(1) = 1
u(k+1) = u(k) + v(k) + w(k)
v(k+1) = u(k) + v(k)
w(k+1) = u(k)
u(k) is the number of straight-chain alk*nes with length k

প্রোগ্রামটি শুরু হয় 1এবং বারবার গণনাতে এই পুনরাবৃত্তিটি প্রয়োগ করেu(k)

টীকাবিহীন কোড (আসার জন্য প্রকৃত টিকা)

# Setup: decrement the input by one and push three 1's to the stack under it
({}[()]<(((())))>)

# Calculation:
{                          }           # While the input is not zero (main loop)
 ({}[()]                  )            # Pop the counter decrement it by one and push it
        <                >             # Before the counter gets pushed back to the stack...
         {            }                # Loop while the top of the stack is not zero (subloop)
          (        )                   # Push...
           {}                          # The top of the stack (popped)...
             <>                        # to the other stack...
               ({})                    # plus the top of the other stack (peeked)
                    <>                 # Switch back to the first stack.
                       <>              # Switch to the other stack
                            {}         # Pop the input (now zero)
                              (      ) # Push...
                               {}      # The top of the stack (u(k))...
                                 <>    # to the other stack...
                                   {}  # plus the top of the other stack (zero).

স্ট্যাকের ভিজ্যুয়ালাইজেশন

মূল লুপের এক পুনরাবৃত্তিতে এটি ঘটে যা ঘটেছিল (নোট করুন যে জিরো উপস্থিত থাকতে পারে বা নাও পারে তবে এটি কোনওভাবেই গুরুত্বপূর্ণ নয়):

Start of main loop iteration/subloop first iteration:
A    B

u
v
w
0    0
^

After first subloop iteration:
A    B

v
w    u
0    0
^

After second subloop iteration:
A    B

    u+v
w    u
0    0
^

After third subloop iteration (top of stack is zero so subloop terminates):

A    B

   u+v+w
    u+v
     u
0    0
^

End of main loop iteration:
A    B

   u+v+w
    u+v
     u
0    0
     ^

স্ট্যাকগুলি রাজ্যের এখন একই যেমন ব্যতীত বর্তমান স্ট্যাক এখন জন্য পরবর্তী মান আছে যে লুপ শুরুতে ছিল u, vএবং wএটা উপর।

Answer 14

পার্ল 6, 48

{my @a=1,0,0;@a=reverse [\+] @a for 1..$_;@a[0]}

মূলত

sub f {$_>2??2*f($_-1)+f($_-2)-f($_-3)!!(1,1,3)[$_]}

তবে আমি ভুলে গিয়েছিলাম যে আমার প্রয়োজন sub fতাই পুনরাবৃত্তি সমাধান জিতে যায়।

Answer 15

ডায়ালগ এপিএল, 30 বাইট

{⍵<3:⍵⌷1 3⋄+/∧/¨4≥2+/¨,⍳1↓⍵/3}

নিষ্ঠুর শক্তি ব্যবহার করে। ব্যাখ্যা (এক্ষেত্রে আমার সেরা চেষ্টা):

⍵<3:⍵⌷1 3 - if ⍵ (function arg) is 1 (case 1) or 2 (case 2), return 1 (case 1) or 3 (case 2)
⋄ - separate statements
⍵/3 - otherwise, 3 repeated ⍵ times
1↓ - without the first element
⍳ - the matrix of possible indices of a matrix of that size
,  - ravel, return a list of all the elements of the matrix
2+/¨ - sum of each contiguous pair on each element
4≥ - tests whether each element is less than or equal to 4
∧/¨ - all elements are true, applied to each item.
+/ - Sum.

Answer 16

ডায়ালগ এপিএল, 29 বাইট

{⍵<4:⍵⌷1 3 6⋄+/2 1 ¯1×∇¨⍵-⍳3}

পূর্ণসংখ্যার ক্রম OEIS A006356 এর পুনরাবৃত্ত সংজ্ঞা ব্যবহার করে কাজ করে।

Answer 17

নম্পির সাথে পাইথন, 62 বাইট

আমাকে এটি চেষ্টা করে দেখতে হয়েছিল, তবে এটি খাঁটি পাইথন বলে মনে হচ্ছে এবং পুনরাবৃত্তিটি আঙ্গুলের চেয়ে কম এবং OEIS পৃষ্ঠায় সুস্পষ্ট, ম্যাট্রিক্স-ভিত্তিক গণনা।

from numpy import*
lambda n:(mat('1 1 1;1 0 0;1 0 1')**n)[0,0]

Answer 18

আর, 61 58 55 51 50 বাইট

স্টিডিন থেকে ইনপুট নেয়, সঠিক ফলাফল নির্ধারণের জন্য ম্যাট্রিক্স এক্সপেনসেন্টেশন ব্যবহার করে।

el(expm::`%^%`(matrix(!-3:5%in%2^(0:2),3),scan()))

আপনি যদি একটি পুনরাবৃত্ত সমাধান সমাধান করতে চান, এখানে 55 বাইটের জন্য ওইআইএস-এ তালিকাভুক্ত পুনরাবৃত্তির সম্পর্কের একটি সুস্পষ্ট বাস্তবায়ন ।

f=function(n)`if`(n<4,(n*n+n)/2,2*f(n-1)+f(n-2)-f(n-3))

Answer 19

এক্সেল, 123 বাইট

ওইআইএসের সূত্রটি কার্যকর করে:

=4*(SIN(4*PI()/7)^2*(1+2*COS(2*PI()/7))^A1+SIN(8*PI()/7)^2*(1+2*COS(4*PI()/7))^A1+SIN(2*PI()/7)^2*(1+2*COS(8*PI()/7))^A1)/7

সর্বদা হিসাবে, ইনপুট ইনপুট A1, অন্য কোনও ঘরে সূত্র।

সহায়ক হতে পারে কিনা তা দেখতে পুরানো ট্রিগ পরিচয় খনন করুন। এখন আমার মাথা ব্যাথা করছে

Answer 20

লিথপ , 79 বাইট

#N:(((if(< N 4)((/(+ N(* N N))2))((-(+(* 2(f(- N 1)))(f(- N 2)))(f(- N 3)))))))

ওইআইএস-এ তালিকাভুক্ত পুনরাবৃত্তির পূর্ণসংখ্যার ক্রমকে কার্যকর করে।

পঠনযোগ্য বাস্তবায়ন এবং পরীক্ষার স্যুট।

% alkaline.lithp
% run with: ./run.js alkaline.lithp
(
    (def f #N : ((
        (if (< N 4) (
            (/ (+ N (* N N)) 2)
        ) (else (
            (- (+ (* 2 (f (- N 1))) (f (- N 2))) (f (- N 3)))
        )))
    )))

    % Test cases 1 to 4
    (import lists)
    (each (seq 1 4) #I :: ((print (f I))))
)