নবম হাইপারোপারেশন মূল্যায়ন করুন

Question

আমি বুঝতে পারি যে এটি কিছুটা গণিত-ওয়াই, তবে - এখানে যায়।

গণিতে, হাইপারোপরেশন সিক্যুয়েন্সটি গাণিতিক ক্রিয়াকলাপগুলির একটি অসীম অনুক্রম (যাকে হাইপারোপরেশনস বলা হয়) যা উত্তরসূরির অবিচ্ছিন্ন অপারেশন দিয়ে শুরু হয়, তারপরে যোগ, গুণ এবং ক্ষীরের বাইনারি ক্রিয়াকলাপ দিয়ে অব্যাহত থাকে, তারপরে ক্রমটি আরও বাইনারি অপারেশনগুলি ছাড়িয়ে প্রসারিত হয় ক্ষয়ক্ষতি, ডান-সহযোগীতা ব্যবহার করে।

আপনার লক্ষ্যটি এমন একটি প্রোগ্রাম লিখুন যা এক্স, y এবং এন তিনটি সংখ্যাকে ইনপুট হিসাবে গ্রহণ করে এবং এক্স এবং y এর উপর নবম হাইপারোপারেশনের ফলাফলকে আউটপুট করে।

যেমন

1 1 1 ফলাফল 2

2 4 4 ফলাফল 65536 p

3 3 4 ফলাফলগুলি 7625597484987

• প্রোগ্রামটি অবশ্যই সংক্ষিপ্ত আকারের কোডে লেখা উচিত।
• আপনি STDINকোনও ফাইল থেকে বা ইনপুট নিতে পারেন ।
• লাইব্রেরি ফাংশন অনুমোদিত নয়।
• ইনপুট সীমাবদ্ধতা: n হবে ≥ 1।

আপনি যদি আপনার চারপাশে মাথাটি গুটিয়ে রাখতে না পারেন তবে http://en.wikedia.org/wiki/Tetration এর একটি ভাল ব্যাখ্যা রয়েছে।

Comments

কী n=1? এটা যদি x+yবা x+1, 1 1 1ফেরত পাঠাবেন2

— জন ডিভোরাক

আমি জানতাম যে আমি কোথাও একটি ভুল করেছি :) স্থির, থেক্স।

— সোহম চৌধুরী

আমি আমাকে সিউডো কোড লিখেছি, তখন বুঝতে পারলাম এটি আসলে একটি বৈধ রুবি কোড (প্রায় :-()

— জন ডিভোরাক

না, এন> = 1 শুধুমাত্র।

— সোহম চৌধুরী

সম্পর্কিত '^' ব্যবহার ছাড়াই হাইপার এক্সপ্লেনসেশন / টিট্রেশন প্রয়োগ করুন

— হাওয়ার্ড

Answer 1

রুবি, ধীর, 86 84 83 টি অক্ষর

def f x,y,n
n>1?(c=x;2.upto(y){c=f(x,c,n-1)};c):x+y
end
p f *gets.split.map(&:to_i)

রুবি, দ্রুত, 96 94 93 টি অক্ষর

def f x,y,n
n>1?(n>2?(c=x;2.upto(y){c=f(x,c,n-1)};c):x*y):x+y
end
p f *gets.split.map(&:to_i)

প্রথম সংস্করণ পথ , শেষ টেস্ট ক্ষেত্রে অত্যন্ত ধীর তাই আমি একটি সংস্করণ বলেন যে উপরন্তু পরিবর্তে বেস কেস হিসাবে ব্যবহার গুণ। প্রথম সংস্করণ গণনা করতে কয়েক বছর সময় নেয় 3 3 4; দ্বিতীয়টি তাত্ক্ষণিক (দেশীয় আইআরবি কনসোলে; ওয়েব সংস্করণটি কিছুটা ধীরে ধীরে)।

রুবির বেশ কয়েকটি সৌন্দর্য এখানে দেখানো হয়েছে:

প্রায় প্রতিটি বক্তব্য রুবিতে একটি অভিব্যক্তি। সুতরাং, আপনি টেরিনারি অপারেটরের অভ্যন্তরে সেমিকোলনগুলি স্টাফ করতে পারবেন, তবে আশেপাশে আপনার কাছে পর্যাপ্ত বন্ধনী রয়েছে। Coffeescript যে এক ধার ছিল। এটি রুবির "কোনও প্যারেনের দরকার নেই" কল সিনট্যাক্সও ধার নিয়েছিল।

অন্তর্নিহিত রিটার্ন: এটি একটি দুর্দান্ত বৈশিষ্ট্য, এবং পূর্ববর্তী থেকে অনুসরণ করা। প্রকৃতপক্ষে, কোনও ক্রিয়াকলাপের শেষ লাইনটি শুরু করা returnলম্পট হিসাবে বিবেচিত হয়, এমনকি যখন গল্ফ হয় না।

নম্বর রুবিতে বস্তু (এমনকি nullএকটি বস্তু)। রুবিতে, পূর্ণসংখ্যার একটি পদ্ধতি timesথাকে যা এটি বেশ কয়েকবার পাস করা ব্লককে কার্যকর করে। এটি রুবির অনেকগুলি পুনরুক্তি পদ্ধতিগুলির মধ্যে একটি। এখানে, uptoপদ্ধতিটি আমাদের যা দেয় তা দিয়ে আমাদের আরও দুটি অক্ষর সংরক্ষণ timesকরতে দেয়।

unary *এখানে স্প্লট অপারেটর। এটি একটি অ্যারেটিকে একটি আর্গুমেন্ট তালিকায় পরিণত করে। ঠিক জাভাস্ক্রিপ্টের মতো Function#applyতবে এটি খাটো এবং আরও ভাল।

unary &একটি পদ্ধতিকে একটি ব্লকে পরিণত করে। যদিও :to_iএটি একটি প্রতীক, এটি বেশ ভাল পদ্ধতিতে রূপান্তরিত করে। যথা, এটি এমন পদ্ধতিতে পরিণত হয় যা to_iতার তর্ককে আহ্বান জানায় এবং ফলাফলটি দেয়। স্ট্যাক ওভারফ্লো সম্পর্কে আরও তথ্য।

n=3বেস কেস হিসাবে ব্যবহার করে এটি আরও দ্রুত পাওয়া সম্ভব হবে তবে আমি ভয় করি যে এটির প্রয়োজন নেই। এটির জন্য কেবল 11 টি অক্ষর ব্যয় হবে, তবে তা রুবীর অপর এক সৌন্দর্যের জন্য ধন্যবাদ: ক্ষয়ক্ষতি অপারেটর **। পাইথনের এই অপারেটর রয়েছে, তবে এটি প্রথমটি নয় (যেমন @ ওরফে.নিস উল্লেখ করেছে - ধন্যবাদ - ফোরট্রানের ইতিমধ্যে এই অপারেটরটি ছিল)।

অনলাইন রুবি দোভাষী এখানে উপলব্ধ: http://repl.it/Ikj/1

Comments

দুর্দান্ত, তবে আমি এখনও এর থেকে আউটপুটটির জন্য অপেক্ষা করছি 3 3 4:) এটি খুব ধীর।

— সোহম চৌধুরী

@ সোহমচৌধুরী বেস মামলাটি যোগ করুন। গুণনের একটি বেস কেস সহ এটি খুব ধীরে ধীরে (এবং আরও দীর্ঘ) হবে। আমি পরিবর্তে ক্ষুদ্রাকর্ষণ দিয়ে পরীক্ষা করার পরামর্শ দিচ্ছি ;-)

— জন ডিভোরাক

স্মৃতিচারণ ব্যবহারের জন্য এটি হয়ত সময় সাশ্রয় করতে পারে তবে এতে কিছু বাইটের দাম পড়তে পারে (বেশ কয়েকটি)

— জন ডিভোরাক

তারপরে অন্য সংস্করণ যুক্ত করুন :)

— সোহম চৌধুরী

অপারেটর ** 50 এর দশকে ফোরট্রানে ইতিমধ্যে বিদ্যমান ছিল এবং ALGOL এর উপরে 1 টি অক্ষর কম থাকবে

— उर्फ.নিস

Answer 2

এপিএল, 62

{1=3⌷⍵:2⌷+\⍵⋄0=2⌷⍵:(⍵[3]⌊3)⌷⍵[1],0,1⋄∇⍵[1],(∇⍵-0 1 0),3⌷⍵-1}⎕

{...}⎕: মূল্যায়িত ইনপুট নেয় (স্পেস-বিভাজিত সংখ্যা একটি সংখ্যার অ্যারেতে মূল্যায়ন করে) এবং এতে ফাংশন প্রয়োগ করে।

1=3⌷⍵:: যদি n সমান হয় 1 ...
2⌷+\⍵: প্রথম 2 টি উপাদানের যোগফল (x + y) ...
⋄0=2⌷⍵:: অন্যথায় যদি y 0 এর সমান হয় ...
(⍵[3]⌊3)⌷⍵[1],0,1: সংখ্যাসূচক অ্যারে তৈরি করুন [x, 0,1] এবং ফিরে সূচক min(n,3)...
⋄∇⍵[1],(∇⍵-0 1 0),3⌷⍵-1: অন্য রিটার্ন ∇ (x, ∇ (x, y-1, n), n-1)। (Self স্ব-উল্লেখ)

---

আমি একটি "হাইপার-রাইজার" অপারেটর পেয়েছি, যা একটি ফাংশন নেয় এবং পরবর্তী হাইপারোপারেশন ফিরিয়ে দেয়

{⍺⍺/⊃⍴/⌽⍵}

উদাহরণস্বরূপ, +{⍺⍺/⊃⍴/⌽⍵}গুণ গুণ এবং +{⍺⍺/⊃⍴/⌽⍵}5 315 আউটপুট হবে।

তবে এটি পুনরাবৃত্তি করতে পারে না। হতে পারে অন্য কেউ এটি করতে পারে।

Comments

আহ, এপিএল। যে কোনও দিন সরলতার জন্য পাইথনকে বীট করে। </sarcasm> আমি এটি কীভাবে চালাব?

— সোহম চৌধুরী

Answer 3

পাইথন, 83

( ফ্লর্নকোকের উত্তরের ভিত্তিতে )

def h(x,y,n):r=n>2;exec"r=h(x,r,n-1);"*y*(n>1);return(x+y,r)[n>1]
print h(*input())

বড় ফলাফলের জন্য খুব ধীর।

জন্য 2, 4, 4আউটপুট 65536।

Comments

"খুব ধীর" কারণেই আমার 86-চরিত্রের সমাধানটি খারাপ বলে বিবেচিত হয়েছিল।

— জন ডিভোরাক

@ জনডভোরাক: আপনি কেন এটিকে খারাপ বলে মনে করেন? সোহম চৌধুরী কেবল বলেছেন যে এটি ধীর এবং আপনার সমাধানটি প্রতিস্থাপন করে এমন নয় যে আপনার অন্য সংস্করণ যুক্ত করা উচিত। (তবে হতে পারে আমি এটি ভুল বুঝেছি))

— মনিকা

তুমি ঠিক বলছো; সংক্ষিপ্ত সংস্করণ পুনরুদ্ধার। আপনার চেয়ে এখন আমি চর বেশি।

— জন ডিভোরাক

পছন্দ করুন সর্বদা সংস্করণ পেয়ে ভাল।

— সোহম চৌধুরী

Answer 4

পাইথন, 96 92

def h(x,y,n):r=1;exec(n>2)*y*"r=h(x,r,n-1);";return(r,(x+y,x*y)[n>1])[n<3]
print h(*input())

ইনপুট: 3, 3, 4
আউটপুট:7625597484987

@ ওল্ফ্রামএইচ-এর কয়েকটি ধারণাগুলি ব্যবহার করে সংক্ষিপ্ত করা হয়েছে ।

Answer 5

গল্ফস্ক্রিপ্ট, ধীর, 39 টি অক্ষর

 ~{\(.{3${[4$\2$4$.~}4$(*}{;;+}if])\;}.~

(সরাসরি লিঙ্ক)

এটি হল n = 1 (সংযোজন) (অর্থাত্ ধীর) এর বেস কেস সহ স্ট্যান্ডার্ড রিকার্সিভ অ্যালগরিদম। আমি আমার রুবি সলিউশনটিতে একই ব্যবহার করেছি

এখানে আমার টীকা সহ একটি সংস্করণ (বেশিরভাগ স্ট্যাক-পালন)। এতে আমি পরে যুক্ত হওয়া একটি অপ্টিমাইজেশন অন্তর্ভুক্ত নয়:

~{            #read the input and do (x y n f)
 \(.{         #(x y f n-1); if(n-1)
  3${         #(x y f n-1 c)
   4$\2$4$.~  #(x y f n-1 x c n-1 f); call
  }3$(*       #y-1 times
  {\;}4*
 }{           #else
  ;;+         #return (x+y)
 }if
}.~           #once

~ইওল অপারেটর। স্ট্রিংয়ের ক্ষেত্রে এটি স্ট্রিংটিকে গল্ফস্ক্রিপ্ট প্রোগ্রাম হিসাবে বিবেচনা করে। ভাগ্যক্রমে, পূর্ণসংখ্যার একটি স্পেস-বিভাজিত তালিকা হ'ল একটি বৈধ গল্ফস্ক্রিপ্ট প্রোগ্রাম যা স্ট্যাকের মধ্যে সেই পূর্ণসংখ্যাকে ধাক্কা দেয়। এর সাথে তুলনা করে আমার ইনপুট রুটিনের পূর্ববর্তী সংস্করণটি ( " "/{~}/স্থান দ্বারা বিভক্ত হয়ে প্রতিটি বিভাজন) বেশ লম্বা। ফাংশনের ক্ষেত্রে, এটি ফাংশনটিকে কল করে। .(ক্লোন) এর আগে , এটি নিজের সাথে ফাংশনটিকে প্রথম যুক্তি হিসাবে ডাকে।

গল্ফস্ক্রিপ্ট পুনরাবৃত্তাকার অ্যালগোরিদম তৈরির জন্য ঠিক ঠিক মতো উপযুক্ত বলে মনে হচ্ছে না। আপনি যদি একটি পুনরাবৃত্ত অ্যালগরিদম চান যা টেল-কল অপটিমাইজযোগ্য নয়, আপনার ভেরিয়েবলগুলি সংরক্ষণ করার জন্য আপনার স্ট্যাক ফ্রেম তৈরি এবং ধ্বংস করতে হবে। বেশিরভাগ ভাষায়, এটি স্বয়ংক্রিয়ভাবে সম্পন্ন হয়। গল্ফস্ক্রিপ্টে আপনাকে আসলে ভেরিয়েবলগুলি ক্লোন করতে হবে (আসলে, স্ট্যাক এন্ট্রি), এবং আপনার আর প্রয়োজন নেই এমন স্ট্যাক এন্ট্রিগুলি নষ্ট করতে হবে। গল্ফস্ক্রিপ্টের স্ট্যাক ফ্রেমের কোনও ধারণা নেই। আমি কি বলেছি যে গল্ফস্ক্রিপ্ট একটি স্ট্যাক-ভিত্তিক ভাষা?

প্রথম প্রয়োজন বোধগম্য। আপনাকে কোনওভাবে যুক্তি নির্দিষ্ট করতে হবে। তারা কেবল তাদের আসল অবস্থানগুলি রাখে তবেই এটি দুর্দান্ত। দ্বিতীয় প্রয়োজনীয়তা দুর্ভাগ্যজনক, বিশেষত যেহেতু রিটার্ন মান স্ট্যাকের শীর্ষে থাকে এবং গল্ফস্ক্রিপ্টে কেবল কোনও স্ট্যাক উপাদান মুছতে সক্ষমতার অভাব হয়। আপনি স্ট্যাকটি ঘোরান এবং নতুন শীর্ষ উপাদানটি ফেলে দিতে পারেন, তবে এটি দ্রুত বাড়তে পারে। \;ভাল. \;\;\;\;\;নয়। আপনি \;একটি লুপে ( {\;}9*; ব্যয় করতে পারেন: 9 টি পর্যন্ত 9 টি উপাদান অবধি ছড়িয়ে দেওয়ার জন্য 6 টি অক্ষর বা 99 টি পর্যন্ত উপাদানগুলিকে বাতিল করতে 7 টি অক্ষর), তবে আমরা আরও ভাল করতে পারি:

গল্ফস্ক্রিপ্টে প্রথম শ্রেণির অ্যারে রয়েছে। এটিতে অ্যারে আক্ষরিক বাক্য গঠনও রয়েছে [1 2 3 4]। কি অপ্রত্যাশিত যে হয় [এবং ]আসলে সিনট্যাক্স একটি অংশ নয়। এগুলি কেবল দুটি অপারেটর: [স্ট্যাকের বর্তমান অবস্থান চিহ্নিত করে এবং ]যতক্ষণ না এটি স্টার্ট-অফ-অ্যারে চিহ্নটি খুঁজে না পায় বা স্ট্যাকের বাইরে চলে না যায় ততক্ষণ প্রতিটি চিহ্ন সংগ্রহ করে এবং চিহ্নটি ত্যাগ করে। এমনকি আপনি এই দুটি ছিন্ন করতে পারেন এবং দেখুন কী হয়। বেশ, একটি আকর্ষণীয় জিনিস:

আমি কি বলেছিলাম যে গল্ফস্ক্রিপ্টের স্ট্যাক ফ্রেমের কোনও ধারণা নেই? আমি মিথ্যে বলেছি. এই একটি স্ট্যাক ফ্রেম হল: [। আপনি একবারে সব বাতিল করতে পারেন: ];। তবে আমরা যদি রিটার্নের মান রাখতে চাই? আপনি ফাংশন এন্ট্রিতে স্ট্যাক ফ্রেমটি বন্ধ করতে পারেন (তারপরে আমাদের কাছে পাস-বাই-অ্যারের সামান্য ম্যাঙ্গেলড সংস্করণ রয়েছে - কোনও আকর্ষণীয় ধারণা নয়), বা আমরা স্ট্যাক ফ্রেমটি বন্ধ করতে পারি এবং এটি সম্পূর্ণরূপে ছাড়ার পরিবর্তে এর শেষ উপাদানটি নিতে ]-1=পারি : বা আমরা uncons শেষ উপাদান পরিবর্তে, পারে এবং তারপর ফ্রেম বাতিল: ])\;। এগুলি একই দৈর্ঘ্য, তবে পরবর্তীটি সামান্য শীতল, তাই আমি এটি ব্যবহার করছি।

সুতরাং, ক্লিন-আপ করার জন্য 6 বা 7 টি অক্ষরের পরিবর্তে আমরা 5 দিয়ে করতে পারি I আমি এখনও অনুভব করি এটি আরও গল্ফ করা যেতে পারে তবে ওহে আমরা একটি চরিত্র সংরক্ষণ করেছি।

Comments

"ফাংশনটিকে নিজের সাথে প্রথম আর্গুমেন্ট হিসাবে

— ডেকে আনে

Answer 6

স্মলটাল্ক স্কেয়াক 4.x স্বাদে অনেকগুলি বাইট!

আমি 71 চরে পূর্ণসংখ্যায় পুনরাবৃত্ত হওয়া ফর্মগুলির একটির প্রয়োগ করতে পারি

f:y n:n n=1or:[^(2to:y)inject:self into:[:x :i|self f:x n:n-1]].^self+y

তারপরে কোনও ফাইল বা ফাইল স্ট্রিম স্টিডিন থেকে পড়ার জন্য আমার একটি আর্ম ব্যয় হবে ... স্পষ্টতই স্কেকিয়াকে স্ক্রিপ্টিং ভাষা হিসাবে নকশা করা হয়নি। সুতরাং সমস্যার সাথে সম্পর্কিত না করে নিজের সাধারণ উদ্দেশ্যে ব্যবহারের উপযোগিতা তৈরি করতে আমি অনেকগুলি বাইট ব্যয় করব:

এই 21 চর পদ্ধতিটি স্ট্রিমে প্রয়োগ করুন (সমুদ্রযাত্রীদের এড়িয়ে যেতে)

s self skipSeparators

আচরণে এই 20 চর পদ্ধতিটি প্রয়োগ করুন (একটি স্ট্রিমের কোনও উদাহরণ পড়তে)

<s^self readFrom:s s

তারপরে স্ট্রিংয়ের ২৮ টি অক্ষর (একটি ফাইল হ্যান্ডেল তৈরি করতে)

f^FileDirectory default/self

তারপরে ফাইল ডিরেক্টরিতে 59 টি অক্ষর (একটি পঠিত স্ট্রিম তৈরি করতে)

r^FileStream concreteStream readOnlyFileNamed:self fullName

তারপরে ব্লকক্লোজারে 33 টি অক্ষর (এটি n বার মূল্যায়ন করতে)

*n^(1to:n)collect:[:i|self value]

তারপরে অ্যারেতে cha৩ টি অক্ষর (রিসিভার এবং অ্যারে থেকে নেওয়া আর্গুমেন্টের সাথে যুক্তির মূল্যায়ন করুন)

`s^self first perform:s asSymbol withArguments:self allButFirst

তারপরে এক্স নামের নামের ফাইলটি থেকে যে কোনও জায়গায় এই 31 চর স্নিপেটটি মূল্যায়ন করে সমস্যার সমাধান করুন

|s|s:='x'f r.[0class<s]*3`#f:n:

এমনকি ইউটিলিটিগুলি গণনা ছাড়াই, এটি ইতিমধ্যে 71 + 31 = 102 টি অক্ষর ...

এখন, যেহেতু আমি কোডগল্ফটি হারাতে নিশ্চিত, তাই পূর্ণসংখ্যায় আমার একটি মজাদার বাস্তবায়ন হয়েছে:

doesNotUnderstand:m
    (m selector allSatisfy:[:c|c=$+])or:[^super doesNotUnderstand:m].
    self class compile:
        m selector,'y y=0or:[^(2to:y)inject:self into:[:x :i|self'
        ,m selector allButLast,'x]].^'
        ,(Character digitValue:()asBit)
        ,(m selector size-2min:1)hex last.
    thisContext sender restart

এই পদ্ধতিটি এন + দিয়ে তৈরি একটি বাইনারি বার্তাগুলিকে সংজ্ঞায়িত (সংকলন) করবে যদি এটি উপস্থিত না থাকে (মেসেজটির গ্রহণকারীর দ্বারা বোঝা যায় না), এবং প্রেরক প্রসঙ্গে শুরুতে সম্পাদন পুনরায় আরম্ভ করবে। আমি অতিরিক্ত গাড়ী বহন এবং পাঠযোগ্যতার জন্য ফাঁকা স্থান .োকালাম।

নোট যে (m selector size-2min:1)hex lastএর একটি সংক্ষিপ্ত রূপ (m selector size>2)asBit printString।

যদি এটি স্মলটালকের দুষ্ট পরাশক্তি প্রদর্শন না করা হয় তবে শেষ বিবৃতিটি সংক্ষিপ্ত এবং সহজ দ্বারা প্রতিস্থাপন করা যেতে পারে

^m sendTo:self

এখন অক্ষরটিতে ২৮ টি অক্ষর ইউটিলিটি প্রয়োগ করুন (এটি একটি স্ট্রিংয়ে n বার পুনরাবৃত্তি করতে)

*n^String new:n withAll:self

তারপরে এই 43 টি অক্ষরের অভিব্যক্তিটি মূল্যায়ন করুন:

|i s|i:=0class.s:='x'f r.[i<s]*2`($+*(i<s))

আমরা পূর্ণসংখ্যায় প্রয়োগ করে আরও 10 টি চর দিয়ে ত্বরান্বিত করতে পারি:

++y^self*y

এবং এই ক্ষেত্রে আমাদের আরও সংক্ষিপ্ত কোড রয়েছে কারণ আমরা এটির ^',(m selector size-2min:1)hex lastসাথে প্রতিস্থাপন করতে পারি^1'

এত বেশি দামের জন্য, কোডটি দ্বিতীয় পূর্ণসংখ্যার সাথে কাজ করে = 0 :)

Answer 7

গ্রোভি - 77

h={x,y,n->n<2?x+y:y<2?x:h(x,h(x,y-1,n),n-1)}
print h(args.collect{it as int})

দ্রষ্টব্য: অ-ক্ষুদ্র আর্গুমেন্টের জন্য এটি অশ্লীল পরিমাণে স্ট্যাক (এবং সময়) প্রয়োজন।

Answer 8

AXIOM কম্পিউটার বীজগণিত সিস্টেম, 69 বাইট

p(x,y,n)==(n<=1=>y+x^n;n=2=>y*x;n=3=>x^y;y<=0=>1;p(x,p(x,y-1,n),n-1))

পরীক্ষা:

(2) -> p(1,1,1)
   (2)  2
                                                 Type: Expression Integer
                                   Time: 0.05 (IN) + 0.03 (OT) = 0.08 sec
(3) -> p(2,4,4)
   (3)  65536
                                                 Type: Expression Integer
                                                              Time: 0 sec
(4) -> p(3,3,4)
   (4)  7625597484987
                                                 Type: Expression Integer
                                                              Time: 0 sec

এটি কিছু পুনরাবৃত্তি দূর করবে ... সম্ভাব্য আমি এক্স এবং y এর বিনিময়ে কিছু বদল করব ... অন্য পরীক্ষার মান আছে কি?

Answer 9

এপিএল (এনএআরএস), 61 টি অক্ষর, 122 বাইট

{(x y n)←⍵⋄n≤1:y+x*n⋄n=2:x×y⋄n=3:x*y⋄y≤0:1⋄∇x,(∇x(y-1)n),n-1}

পরীক্ষা:

  h←{(x y n)←⍵⋄n≤1:y+x*n⋄n=2:x×y⋄n=3:x*y⋄y≤0:1⋄∇x,(∇x(y-1)n),n-1}
  h 1 1 1
2
  h 2 4 4
65536
  h 3 4 4
∞
  h 3 3 4
7625597484987