রোসটা স্টোন চ্যালেঞ্জ: একটি সিরিজের নিয়ম সন্ধান করুন

15

রোজটা স্টোন চ্যালেঞ্জের লক্ষ্য হ'ল যতটা সম্ভব ভাষায় সমাধান লিখুন। আপনার প্রোগ্রামিং বহুভাষিকতা দেখান!

চ্যালেঞ্জ

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

একটি "সিরিজ" কি?

একটি সিরিজ হল পূর্ণসংখ্যার একটি আদেশযুক্ত তালিকা। সিরিজের প্রতিটি ধারাবাহিক নম্বর সিরিজের আগের নম্বরটিতে একটি সাধারণ নিয়ম প্রয়োগ করে তৈরি করা যেতে পারে। এই চ্যালেঞ্জে, নিয়মটি একটি ধ্রুবক দ্বারা সংখ্যাটিকে গুণিত করে এবং তারপরে একটি দ্বিতীয় ধ্রুবক যুক্ত করে। ধ্রুবক উভয়ই যে কোনও পূর্ণসংখ্যা হতে পারে। এই চ্যালেঞ্জের লক্ষ্য হ'ল এই দুটি ধ্রুবককে আউটপুট করা।

সিরিজের জন্য 2 5 11, নিয়ম হিসাবে লেখা যেতে পারে 2 1। এর অর্থ হ'ল প্রতিটি সংখ্যা পূর্ববর্তী সংখ্যা, 2 বার, এবং আরও 1। একটি গুরুত্বপূর্ণ সত্যটি হল যে বেশিরভাগ সিরিজের ঠিক একটি নিয়ম থাকে। কিছু সিরিজের হয় অসীম সংখ্যা বা মোটেও কোনওটি নয়, তবে আপনাকে এটিকে মোকাবেলা করতে হবে না।

ইনপুট

ইনপুটটি তিনটি পৃথক পূর্ণসংখ্যার একটি তালিকা হবে যা ক্রমটির সংখ্যা are সংখ্যাগুলি স্থান, কমা বা নিউলাইন সীমিত করা যেতে পারে তবে দয়া করে কোনটি নির্দিষ্ট করুন। আমি এই সীমাবদ্ধতার উপর নমনীয় হতে চলেছি কারণ নির্দিষ্ট ভাষায় ইনপুট বিধিনিষেধ থাকতে পারে। এখানে ইনপুট চারটি উদাহরণ:

0 7 14
2 5 11
2 0 -4
5 -19  77

আউটপুট

আউটপুট দুটি পূর্ণসংখ্যা হবে যা সিরিজ উত্পন্ন করতে ব্যবহৃত নিয়মের প্রতিনিধিত্ব করে। প্রথম সংখ্যাটি গুণক ধ্রুবক হবে, এবং দ্বিতীয় সংখ্যাটি সংযোজক ধ্রুবক হবে। আউটপুটটির বিন্যাস স্থান, কমা বা নিউলাইন সীমিত করা যেতে পারে। আমি এই সীমাবদ্ধতার উপরও নমনীয়। আউটপুট সম্পর্কিত সম্পর্কিত উদাহরণ এখানে:

1 7
2 1
2 -4
-4 1

উদ্দেশ্য বিজয়ী মানদণ্ড

একটি উদ্দেশ্যমূলক বিজয়ী মানদণ্ড হিসাবে, এখানে: প্রত্যেকটি ভাষা স্বল্পতম এন্ট্রি লিখতে পারে সে সম্পর্কে পৃথক প্রতিযোগিতা, তবে সামগ্রিক বিজয়ী ব্যক্তি এই উপ-প্রতিযোগিতাগুলির মধ্যে সবচেয়ে বেশি জয়ী হবেন। এর অর্থ হ'ল যে ব্যক্তি বহু অস্বাভাবিক ভাষায় উত্তর দেন সে সুবিধা পেতে পারে। কোড-গল্ফ বেশিরভাগ ক্ষেত্রেই যখন একটি ভাষায় একাধিক সমাধান থাকে তখন একটি টাইব্রেকার: সংক্ষিপ্ততম প্রোগ্রাম সহ ব্যক্তি সেই ভাষার জন্য কৃতিত্ব পান।

বিধি, বিধিনিষেধ এবং নোটস

আপনার প্রোগ্রামটি 9 ই এপ্রিল, 2012 এর আগে বিদ্যমান যে কোনও ভাষায় লেখা যেতে পারে। আরও কিছু অস্বাভাবিক / রহস্যময় ভাষায় রচিত কিছু প্রতিক্রিয়া যাচাই করার জন্য সম্প্রদায়ের উপরও নির্ভর করতে হবে, যেহেতু আমার পরীক্ষা করার সম্ভাবনা নেই am তাদের।

বর্তমান লিডারবোর্ড

ভাষার সংখ্যা এবং প্রত্যেকটিতে কে নেতৃত্ব দিচ্ছেন তা প্রদর্শনের জন্য এই বিভাগটি পর্যায়ক্রমে আপডেট করা হবে।

  • এডাব্লুকে (32) - মেল্লামোকব
  • বাশ (31) - পিটার টেলর
  • বেফুঞ্জ (29) - হাওয়ার্ড
  • বিসি (39) - কের্নেগ
  • ব্রেনফাক (174) - সিএমপি
  • সি (78) - l0n3_shArk
  • সি ++ (96) - বামদিকের চৌকাঠ
  • কমন লিস্প (88) - কের্নেগ
  • ক্রে চ্যাপেল (59) - কাইল কানোস
  • csh (86) - kernigh
  • চুদা (301) - বামদিকের চৌকো
  • ডিসি (30) - কের্নেগ
  • ডস ব্যাচ (54) - মেল্লামোকব
  • এলিমেন্ট (27) - হাওয়ার্ড
  • এস (95) - কের্নেগ
  • ফ্যাক্টর (138) - কের্নেগ
  • ফেলিক্স (86) - kirbyfan64sos
  • ফরট্রান (44) - কাইল কানোজ
  • গো (101) - হাওয়ার্ড
  • গল্ফস্ক্রিপ্ট (16) - হাওয়ার্ড
  • গল্ফ্লুয়া (44) - কাইল কানোস
  • হাস্কেল (35) - বামদিকের চৌকো
  • জে (23) - গ্যারেথ
  • জাভা (141) - হাওয়ার্ড
  • জাভাস্ক্রিপ্ট (47) - মেলামোকব
  • জুলিয়া (71) - এমএল
  • লুয়া (51) - হাওয়ার্ড
  • বুধ (319) - বাম দিকের রাস্তা
  • মুনস্ক্রিপ্ট (48) - kirbyfan64sos
  • নিমরোড (146) - বামদিকের চৌকাঠ
  • পেঁচা (22) - res
  • পাস্কাল (88) - বামদিকের চৌকাঠ
  • পার্ল (57) - গ্যারেথ
  • পিএইচপি (61) - মেলামোকব
  • পিকো-লিস্প (72) - কার্নিগ
  • পিট (56) - এমএল
  • পোস্টস্ক্রিপ্ট (61) - হাওয়ার্ড
  • পাইথন (40) - হাওয়ার্ড
  • প্রশ্ন (36) - টিমার্টিন
  • কিউব্যাসিক (34) - মেল্লামোকব
  • আর (50) - রেজ
  • রুবি (44) - হাওয়ার্ড
  • স্কালা (102) - গ্যারেথ
  • এসকিউএল (57) - আমান জিক ভার্মা
  • টিআই -83 বেসিক (25) - মেলামোকব
  • আনলিমিটেড রেজিস্টার মেশিন (285) - প্যাক্সিনাম
  • ভিবিএ (57) - গাফি
  • হোয়াইটস্পেস (123) - রেজ
  • zsh (62) - kernigh

বর্তমান ব্যবহারকারী র‌্যাঙ্কিং

সমান স্থানগুলি বর্ণমালা অনুসারে বাছাই করা হয়।

  1. হাওয়ার্ড (9): বেফুঞ্জ (29), এলিমেন্ট (27), গো (101), গল্ফস্ক্রিপ্ট (16), জাভা (141), লুয়া (51), পোস্টস্ক্রিপ্ট, (61) পাইথন, (40) রুবি (44)

  2. কার্নিগ (8): বিসি (39), কমন লিস্প (88), সিএসএইচ (86), ডিসি (30), এস (95), ফ্যাক্টর (138), পিকোস্লিপ (72), জেডএস (62)

  3. বামদিকের (6): সি ++ (96), চুদা (301), হাস্কেল (35), বুধ (319), নিমরোড (146), পাস্কাল (88)

  4. মেল্লামব্যাক ()): এডাব্লুকে (৩২), ডস ব্যাচ (৫)), জাভাস্ক্রিপ্ট (৪)), পিএইচপি (61১), কিউ বেসিক (৩৪), টিআই -৩৩ বেসিক (৪১)

  5. গ্যারেথ (3): জে (23), পার্ল (57), স্কালা (102)

  6. কাইল কানোজ (3): ক্রে চ্যাপেল (59), ফোর্টরান (44), গল্ফ্লুয়া (44)

  7. রেজ (3): আউল (22), আর (50), হোয়াইটস্পেস (123)

  8. kirbyfan64sos (2): ফেলিক্স (86), মুনস্ক্রিপ্ট (48)

  9. এমএল (2): জুলিয়া (71), পিট (56)

  10. আমান জেক ভার্মা (1): এসকিউএল (57)

  11. সিএমপি (1): ব্রেইনফাক (174)

  12. গাফি (1): ভিবিএ (57)

  13. l0n3_shArk (1): সি (78)

  14. প্যাক্সিনাম (1): সীমাহীন রেজিস্টার মেশিন (285)

  15. পিটার টেলর (1): বাশ (31)

  16. tmartin (1): প্রশ্ন (36)

code-golf  math  rosetta-stone 
— PhiNotPi
সূত্র
দেখে মনে হচ্ছে না যে লোকেরা ট্যাগগুলি বা অন্যান্য বিবরণগুলি আসলে পড়ে ...
— বন্ধ হয়ে গেছে
@ বামফ্রন্টাবাউট: আপনি কেন তা বলছেন? আমি সচেতন (উদাহরণস্বরূপ) জানি যে আমার সমাধান অ্যারে ইনপুট নেয় না এবং পরে এটি ঠিক করার পরিকল্পনা করে। এবং আমি এই মুহুর্তে একাধিক সমাধান পোস্ট করতে খুব অলস করছি :) অবজেক্ট উইনিং ক্রিটারিও অনুসারে, কোড-গল্ফ একই ভাষার দুটি পোস্টের জন্য টাই ব্রেকার, তাই আমি চরিত্রের সংখ্যাটি সহজ হিসাবে অন্তর্ভুক্ত করেছি অন্য কেউ জাভাস্ক্রিপ্ট সমাধান পোস্ট করার ক্ষেত্রে রেফারেন্স। এটি প্রকৃতপক্ষে সেই বিরল মুহুর্তগুলির মধ্যে একটি হতে পারে যখন কোনও প্রশ্ন দুটি code-golf এবং code-challenge ট্যাগ উভয়েরই প্রাপ্য ।
— মেল্লামোকব
হ্যাঁ, আপনি ঠিক বলেছেন: কাউকে অসাধারণ ভাষাও করতে হবে।
— বন্ধ হয়ে গেছে
3
যতক্ষণ আপনি উপরে লিডারবোর্ডটিকে উপরের মতো একই স্ট্যান্ডার্ড ফর্ম্যাটে রাখছেন ততক্ষণ
— মেল্লামব্যাক
1
আমার সর্বশেষতম সংস্করণ ( jsfiddle.net/bk2WM/4 ) একটি কাঁচা আউটপুট সরবরাহ করে ( টেক্সারিয়াতে ) আপনি কোনও পোস্টে অনুলিপি / পেস্ট করতে পারেন এবং এটি আমার ফর্ম্যাট যেমন ফর্ম্যাট করে। বিন্যাসের সাথে নির্দ্বিধায় পরিবর্তন / খেলুন।
— মেল্লামোকব

উত্তর:

9

গল্ফস্ক্রিপ্ট, 16 টি অক্ষর

~1$- 1$3$-/.p@*-

স্পেস-বিভাজিত তালিকা হিসাবে ইনপুট দেওয়া হয়।

জাভাস্ক্রিপ্ট, 56 টি অক্ষর

p=prompt;x=alert;a=p();b=p();x(m=(p()-b)/(b-a));x(b-a*m)

ইনপুট প্রম্পটে দেওয়া হয়।

রুবি, 44 টি অক্ষর

a,b,c=eval("[#{gets}]");m=c-b;p m/=b-a,b-m*a

ইনপুটটি এখানে কমা-বিচ্ছিন্ন তালিকা হিসাবে দেওয়া হয়েছে।

পাইথন, 40 টি অক্ষর

a,b,c=input();m=c-b;m/=b-a;print m,b-m*a

ইনপুট আবার কমা-বিচ্ছিন্ন।

জাভা, 141 টি অক্ষর

enum E{E;static int s(){return new java.util.Scanner(System.in).nextInt();}{int a=s(),b=s(),m=s()-b;m/=b-a;System.out.print(m+" "+(b-a*m));}}

নিউলাইন দ্বারা পৃথক ইনপুট।

লুয়া, ৫১ টি অক্ষর

r=io.read
a,b=r(),r()
m=(r()-b)/(b-a)
print(m,b-m*a)

নিউলাইন দ্বারা পৃথক ইনপুট।

যান, 101 অক্ষর

package main
import"fmt"
var a,b,c int
func main(){fmt.Scan(&a,&b,&c)
c-=b
c/=b-a
fmt.Print(c,b-a*c)}

নিউলাইন দ্বারা পৃথক ইনপুট।

ফরট্রান, 90 টি অক্ষর

      PROGRAM X
      READ(*,*)I,J,K
      K=(K-J)/(J-I)
      WRITE(*,*)K,J-I*K
      END

নিউলাইন দ্বারা পৃথক ইনপুট।

বেফুঞ্জ, 29 টি অক্ষর

&01p&:11p:&-01g11g-/:.01g*-.@

পোস্টস্ক্রিপ্ট, 61 টি অক্ষর

2 5 14
1 index sub 1 index 3 index sub idiv dup = 3 2 roll mul sub =

পেঁচা, 23 টি অক্ষর

<%<%<$-1`4'-/%.32)2'*-.

নিউলাইন দ্বারা পৃথক ইনপুট।

উপাদান , 27 টি অক্ষর

_-a;_3:'-_+"a~+/2:`a~*+\ ``

নিউলাইন দ্বারা পৃথক ইনপুট।

— হাওয়ার্ড
সূত্র
আমার জাভাস্ক্রিপ্ট সমাধানটির নির্লজ্জ
— উত্তরাধিকারী
1
দু'জন এই গেমটি খেলতে পারবেন ...: পি
— মেল্লামোকব
নিবন্ধন করুন তবে আমি ইতিমধ্যে আপনার উত্তরটিকে উস্কে দিয়েছি ;-) সুতরাং আমাদের জন্য কী অবশিষ্ট রয়েছে: 48 টি অক্ষরকে পরাজিত করুন ...
— হাওয়ার্ড
2
বাহ, আপনি আমার ভাষায় গল্ফ করেছেন। আমি সম্মানিত বোধ করছি। আমি আপনাকে মারতে বাধ্য বোধ করি। :)
— ফিনোটপিপি
1
আপনার এলিমেন্ট সমাধান সম্পর্কে, এটি প্রদর্শিত হয় যে শেষ `চিহ্নের প্রয়োজন নেই। এটি কি আপনার পক্ষ থেকে একটি ত্রুটি বা আমার দোভাষীর কোনও ত্রুটি যা আমি পাস্তবিনে পোস্ট করেছি? ওহ, এবং আমি একটি 27 অক্ষর সমাধান আছে।
— PhiNotPi
8

ব্রেইনফাক - 174

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

পিট - 82?

এখানে প্রতিযোগিতামূলক গল্ফ কীভাবে পরিমাপ করা যায় তা নিশ্চিত নন। আমি মোট চিত্রের আকার নিয়ে যাচ্ছি (কোডেলে) খনিটি 41x2: এখানে চিত্র বর্ণনা লিখুন

বেফুঞ্জ - 34

&00p&10p&10g-10g00g-/:.00g*10g\-.@

ইংরেজি - 278

The multiplier is the quotient of the difference of the second 
and third values and the second and first values. 
To generate a new term, multiply the current term by the multiplier
and add the difference of the first value and the product of the 
multiplier and the second value.

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

— captncraig
সূত্র
আমাকে একজন দোভাষীর সাথে লিঙ্ক করুন (একটি সম্পূর্ণ ভাষা যা পুরো ভাষা বোঝে, এবং এই সমস্যাটি সমাধানের দিকে কেবল প্রস্তুত নয়) এবং আমি এটি গ্রহণ করতে পারি।
— ফিনটপিপি
— ক্যাপচার্যাগ করুন
1
এটি ঠিক আছে, অন্য একজন ল্যাকেক্সে গাণিতিক প্রমাণ লিখেছেন। এটি গণনা করা হয়নি, তবে বৈচিত্র্যে যুক্ত হয়েছে।
— PhiNotPi
যদি আমি আপনার পিট সমাধানটি এনপিট দিয়ে চেষ্টা করি তবে আমি এই ফলাফলটি পেতে পারি: D:\Software\Programming\Piet\npiet-1.3a-win32>npiet series2.png ? 5 ? -19 ? 77 05 সমাধানটি হওয়া উচিত-4 1
— এমএল
আপনি পোস্ট করা চিত্রটি ডান পাশে এক পিক্সেল (কোডেল নয়!) না বাড়ানো পর্যন্ত কাজ করে না। 461 পিক্সেল 11 দ্বারা বিভাজ্য নয়, যা উপায়ের তুলনায় একটি অস্বাভাবিক কোডেলের আকার;)
— এমএল
8

কিউ বেসিক, 42

INPUT "",a,b,c
m=(c-b)/(b-a)
PRINT m;b-m*a

কমা সহ ইনপুট প্রয়োজন, স্পেস সহ আউটপুট (এটি ঠিক আছে?)

বুধ, 319

:-module r.
:-interface.
:-import_module io,list,int,char,string.
:-pred main(io::di,io::uo)is det.
:-implementation.
main(!IO):-io.read_line_as_string(J,!IO),(if J=ok(I),[A,B,C]=list.map(string.det_to_int,string.words_separator(char.is_whitespace,I)),M=(C-B)/(B-A)then io.format("%d %d",[i(M),i(B-M*A)],!IO)else true).

Haskell,, 85 81

f[a,b,c]|m<-(c-b)`div`(b-a)=[m,b-m*a]
main=getLine>>=mapM_ print.f.map read.words

এখন স্পেসগুলির সাথে ইনপুটগুলি, নতুন লাইনের সাথে আউটপুট।

সি, 80

main(a,b,c,m){scanf("%d %d %d",&a,&b,&c);m=(c-b)/(b-a);printf("%d %d",m,b-m*a);}

সি ++, 96

#include<iostream>
main(){int a,b,c,m;std::cin>>a>>b>>c;m=(c-b)/(b-a);std::cout<<m<<' '<<b-m*a;}

নিমরোড, 146

import strutils
var
 q:array[0..3,int]
 b,m:int
for i in 0..2:q[i]=ParseInt(readLine(stdin))
b=q[1]
m=(q[2]-b)div(b-q[0])
echo($m,",",$(b-m*q[0]))

ইনপুট ডাব্লু / নিউলাইনস, আউটপুট কমা।

এইটি গণনা করা হবে না, তবে আমি মনে করি এটি এখনও কোনও উপায়ে ফিট করে:

গাণিতিক উপপাদ্য, ল্যাটেক্সের 713 টি অক্ষর

\documentclass{article}\usepackage{amsmath}\usepackage{amsthm}\begin{document}Theorem: for a sequence $(a_i)_i$ of integers with $a_2\neq a_1$ where $a_3-a_2$ is divisible by $a_2-a_1$, $m:=\frac{a_3-a_2}{a_2-a_1},\ p:=a_2-m\cdot a_1$ give rise to a sequence\[b_i:=\begin{cases}a_1&\text{for }i=1\\b_{i-1}\cdot m+p&\text{else}\end{cases}\] such that $b_i=a_i\ \forall i\leq 3$.

Proof: $i=1$ is trivial,\[\begin{aligned}b_2=&b_1\cdot m+p=a_1\frac{a_3-a_2}{a_2-a_1}+a_2-\frac{a_1a_3-a_1a_2}{a_2-a_1}=a_2,\\b_3=&b_2\cdot m+p=\frac{a_2a_3-a_2^2}{a_2-a_1}+a_2-\frac{a_1a_3-a_2^2}{a_2-a_1}\\=&\frac{a_2a_3-a_1a_3+(a_2-a_1)a_2-a_2^2+a_1a_2}{a_2-a_1}\\=&\frac{a_2-a_1a_3+0}{a_2-a_1}=a_3.\end{aligned}\]\qed\end{document}

LaTeX গাণিতিক-উপপাদ্য সমাধানের আউটপুট

আমরা লেখার সময় ছিল := সংজ্ঞা ...

প্যাসকেল, 90 88

program r;var a,b,c:integer;begin;read(a,b,c);c-=b;c:=c div(b-a);write(c,' ',b-c*a);end.

চুদা, 301

#include<stdio.h>
__global__ void r(int*q){if(!(blockIdx.x|threadIdx.x)){q[1]-=*q;q[1]/=(*q-q[2]);*q-=q[1]*q[2];}}
main(){int p[3],*q;scanf("%d%d%d",p+2,p,p+1);cudaMalloc(&q,24);cudaMemcpy(q,p,24,cudaMemcpyHostToDevice);r<<<1,1>>>(q);cudaMemcpy(p,q,24,cudaMemcpyDeviceToHost);printf("%d %d",p[1],*p);}
— পাল্টা ঘড়ি বন্ধ করা
সূত্র
1
আপনি সি সমাধানে দুটি অক্ষর মুছে ফেলা mএবং পুনরায় ব্যবহার করে cএবং অন্য দুটি এর c-=b;c/=b-a;পরিবর্তে ব্যবহার করে সংরক্ষণ করতে পারেন c=(c-b)/(b-a);।
— পিটার টেলর
সি সমাধানে আপনার scanf()বিন্যাসের স্ট্রিংয়ের ফাঁকির প্রয়োজন নেই ।
— রেটো কোরাাদি
7

AWK, 35 টি অক্ষর

{m=($3-$2)/($2-$1);print m,$2-$1*m}
  • ছক পূরণ করা: 2 0 -4

বিসি, 39 টি অক্ষর

define f(a,b,c){
m=(c-b)/(b-a)
m
b-a*m}
  • ছক পূরণ করা: z=f(2, 0, -4)
  • ইনপুটটি একটি bcঅভিব্যক্তি। পরেbcউত্স ফাইলটি পড়ার , এটি স্ট্যান্ডার্ড ইনপুটটি পড়ে। এজন্য ইনপুটটিকে অবশ্যই একটি ফাংশন কলের মতো দেখতে হবে।
  • আমি ওপেনবিএসডি ব্যবহার করি bc, যার পরে একটি নতুন লাইন দরকার {।

কমন লিস্প, 88 টি অক্ষর

(let*((a(read))(b(read))(c(read))(m(/(- c b)(- b a))))(format
t "~A ~A" m (- b(* a m))))
  • ছক পূরণ করা: 2 0 -4

csh, 86 টি অক্ষর

set i=(`cat`)
@ m=($i[3] - $i[2]) / ($i[2] - $i[1])
@ n=$i[2] - $i[1] * $m
echo $m $n
  • ছক পূরণ করা: 2 0 -4
  • 86 তম অক্ষরটি ফাইলের শেষে নতুন লাইন। cshএকমাত্র ভাষা যার জন্য আমি ফাইলের শেষে নিউলাইন গণনা করি। এটি কারণ cshনিউলাইন না থাকলে কখনও শেষ কমান্ডটি চালায় না।
  • set i=($<)$<কোনও শব্দ বিভাজন নেই বলে কাজ করে না ।

ডিসি, 30 টি অক্ষর

?scsbsalclb-lbla-/psmlblalm*-p
  • ইনপুট ফর্ম্যাট: 2 0 _4যেখানে _আন্ডারস্কোর।

es, 95 টি অক্ষর

i=(`cat)
b=$i(2)
m=`{expr \( $i(3) - $b \) / \( $b - $i(1) \)}
echo $m `{expr $b - $i(1) \* $m}
  • ছক পূরণ করা: 2 0 -4
  • esহয় প্রসার্য শেল পল Haahr এবং বায়রন Rakitzis দ্বারা।

ফ্যাক্টর, 138 টি অক্ষর

USING: eval formatting io kernel locals math ;
contents eval( -- a b c ) [let :> ( a b c )
c b - b a - / dup a * b swap - "%d %d" printf ]
  • ছক পূরণ করা: 2 0 -4

পিকোলিপস, 74 72 টি অক্ষর

(in()(let(r read a(r)b(r)c(r)m(/(- c b)(- b a)))(print
m (- b(* a m)))))
  • ছক পূরণ করা: 2 0 -4
  • সম্পাদনা করুন: পরিবর্তন করে 2 অক্ষর হারিয়েছেন a(read)b(read)c(read)করতে r read a(r)b(r)c(r)।

TI-83 বেসিক, 63 61 টি অক্ষর

:Input A
:Input B
:Input C
:(C-B)/(B-A)→M
:Disp M
:Disp B-A*M
  • ইনপুট ফর্ম্যাট: 2ENTER 0ENTER ¯4ENTER, যেখানে ¯ক্যালকুলেটারের আনারি বিয়োগ হয়।
  • আমি ইউনিকোডের অক্ষর গণনা করেছি; →(ডান তীর) ইউ + 2192 হিসাবে গণনা করা হয়। উদাহরণস্বরূপ, ক্যালকুলেটরটি Input A2 টি অক্ষর হিসাবে গণনা করা হয় তবে আমি Input A7 টি অক্ষর হিসাবে গণনা করি । আমি :1 চরিত্র হিসাবে গণনা ।
  • সম্পাদনা: আমি ভুল হিসাব করেছি: এখানে 61১ টি, 63৩ টি নয়, চরিত্র রয়েছে।

zsh, 62 টি অক্ষর

i=(`cat`)
((b=i[2],m=(i[3]-b)/(b-i[1]),n=b-i[1]*m))
echo $m $n
  • ছক পূরণ করা: 2 0 -4
— kernigh
সূত্র
7

এডাব্লুকে (32)

{m=$3-$2;print m/=$2-$1,$2-$1*m}

ডেমো: http://ideone.com/kp0Dj

বাশ (38)

awk '{m=$3-$2;print m/=$2-$1,$2-$1*m}'

ডেমো: http://ideone.com/tzFi8

ডস / ব্যাচ (54 55 )

set/a m=(%3-%2)/(%2-%1)&set/a n=%2-%m%*%1&echo %m% %n%

যুক্তিগুলির স্থান-বিভাজিত তালিকা হিসাবে প্যারামিটার নেয়।

জাভা (143 185 )

enum R{R;{int a=0,b=0,c,i=2;for(;(c=new java.util.Scanner(System.in).nextInt()+b*--i)+i>=c;b=c)a+=c*i;c/=b-a;System.out.print(c+" "+(b-a*c));}}

জাভাস্ক্রিপ্ট (48 61 67 )

p=prompt;m=p(b=p(a=p()))-b;alert([m/=b-a,b-a*m])

ডেমো: http://jsfiddle.net/BT8bB/6/

পিএইচপি (61 77 )

<?list(,$a,$b,$c)=$argv;$c-=$b;echo($c/=$b-$a).' '.$b-=$c*$a;

ডেমো: http://ideone.com/CEgke

কিউবাসিক (34)

INPUT a,b,c
m=(c-b)/(b-a)
?m;b-m*a

টিআই -83 বেসিক (25 41 )

:Prompt A,B,C
:(C-B)/(B-A
:Disp Ans,B-AAns

হ্যাঁ, অনুপস্থিত ডান প্রথম বন্ধনীর উদ্দেশ্য রয়েছে। এটি একটি সুপরিচিত অপটিমাইজেশন কৌশল যা টিআই -৩৩ বেসিক প্রোগ্রামিংয়ে এসটিও অপারেশনের আগে বন্ধনী বন্ধ করে দেওয়া দরকার।

— mellamokb
সূত্র
1
জেএস ফায়ারফক্সে আমার পক্ষে কাজ করে না - আমি একটি ত্রুটি পাই pযা সংজ্ঞায়িত। জেএস স্পেক কি বলে যে ফাংশনটি সমাধান হওয়ার আগে ফাংশন যুক্তিগুলি মূল্যায়ন করা উচিত?
— পিটার টেলর
হুম। হ্যাঁ আপনি সঠিক. অনুমান অনুসারে, এটি কাজ করা উচিত নয়, যেমন অনুরূপ এসও প্রশ্নে ব্যাখ্যা করা হয়েছে: স্ট্যাকওভারফ্লো . com / প্রশ্নস / 41৪৪৩736//২ । তাদের যুক্তিগুলি মূল্যায়নের আগে ফাংশনগুলি আবদ্ধ হওয়ার কথা, এবং ক্রোম দৃশ্যত এটি বিপরীত ক্রমে করে does
— মেল্লামোকব
আপনি উপরে দেখতে পারেন সম্পূর্ণ আলাদা পদ্ধতির মাধ্যমে সর্বোচ্চ জাভা সমাধানটি হারাতে আমি দীর্ঘ এবং কঠোর চেষ্টা করেছি। 143 আমি পেতে সক্ষম হয়েছি সবচেয়ে কাছাকাছি। কারও কোনও ধারণা আছে, আমার উপায় পাঠান!
— মেল্লামোকব
6

সাদা স্থান, 123

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

ব্যাখ্যা, যেখানে এস, টি, এল স্পেস, ট্যাব, লাইনফিড প্রতিনিধিত্ব করে:

Pseudocode     Whitespace
----------     ----------
push 0         SS SSL
readn          TLTT
push 1         SS STL
readn          TLTT
push 2         SS STSL
dup            SLS
readn          TLTT
retr           TTT
push 1         SS STL
retr           TTT
-              TSST
push 1         SS STL
retr           TTT
push 0         SS SSL
retr           TTT
-              TSST
/              TSTS
dup            SLS
outn           TLST
push 10        SS STSTSL
outc           TLSS
push 0         SS SSL
retr           TTT
*              TSSL
push 1         SS STL
retr           TTT
swap           SLT
-              TSST
outn           TLST
exit           LLL

আর, 50

x=scan(n=3);y=diff(x);z=y[2]/y[1];c(z,x[2]-x[1]*z)

I / O স্থান দ্বারা পৃথক।

পেঁচা

--- 22 ---

< <%<-2`2`-/%.10)2'*-.

আই / ও নিউলাইন-বিচ্ছিন্ন।

--- ১৯ --- (যদি এই সংস্করণটির অনুমতি দেওয়া হয়; তবে আমি মনে করি এটি প্রতারণা করছে, যেহেতু exec এক্সিকিউটযোগ্য কোড):

1`-1`3`-/%.32)2'*-.

I / O স্থান দ্বারা পৃথক। কমান্ড-লাইন ব্যবহার: owl prog 5 19\ 77(Ow আউলগুলিতে পোস্টফিক্স অ্যালারি বিয়োগ হিসাবে কাজ করে)।

— মাঝামাঝি
সূত্র
আপনার আউল প্রবেশের সাথে, আমি আপনার 19 চর সমাধানটি স্থগিত করতে পারি কারণ আপনার 22 চর সমাধান ইতিমধ্যে ভাষার পক্ষে জিতেছে।
— ফিনোটপিপি
5

জে, 23 টি অক্ষর

(],1{x-0{x*])%~/2-/\x=:

ব্যবহার:

   (],1{x-0{x*])%~/2-/\x=: 5 _19 77
_4 1

নেতিবাচক সংখ্যাগুলি জে আন্ডারস্কোর দ্বারা প্রতিনিধিত্ব করা হয়

পিএইচপি, 88 টি অক্ষর

<?php
list($x,$y,$z)=split(' ',fgets(STDIN));
$a=($z-$y)/($y-$x);
echo$a." ".($y-$a*$x);

স্কেলা, ১০২ টি অক্ষর

val x=readLine.split(" ").toList.map(_.toInt)
val a=(x(2)-x(1))/(x(1)-x(0))
print(a+" "+(x(1)-x(0)*a))

পার্ল, 57 টি অক্ষর

s!(.+) (.+) (.+)!$a=($3-$2)/($2-$1);$a." ".($2-$1*$a)!e

'-P' বিকল্পের প্রয়োজন, যার জন্য আমি 2 টি অক্ষর যুক্ত করেছি। ধরে নেওয়া হয় যে কিছু অক্ষর সংরক্ষণের জন্য ইনপুটটি বৈধ।

আমার সমস্ত উত্তর স্থান পৃথক নম্বর গ্রহণ।

— গ্যারেথ
সূত্র
জে প্রোগ্রাম সম্পর্কে ... ইনপুটটি ব্যবহারকারীর কাছ থেকে অনুরোধ করার পরিবর্তে উত্স ফাইলটিতে সরাসরি কোডিং করার অনুমতি রয়েছে?
— মাঝামাঝি
@res আমি কমান্ড লাইনে যেভাবে আবেদন করব ঠিক সেভাবেই এটি দিয়েছি। যোগ করার পদ্ধতি1!:1]3এক্সপ্রেশনটির ডানদিকে করা এসটিডিআইএন থেকে ইনপুটটি পড়বে। আমি মনে করি যে মেটাকে নিয়ে আলোচনা করা হয়েছে বা কিছু জে জবাবদের মন্তব্যে এর অনুমতি দেওয়া উচিত কিনা তা নিয়ে আলোচনা হয়েছে। আমি কিছুটা দ্বিধাবিভক্ত - আমি জে সবচেয়ে ক্ষুদ্রতম স্থানে যা চাই তা কীভাবে করব তা আবিষ্কার করার উপভোগ করছি, সবাই যদি চায় তবে এসটিডিএন থেকে ইনপুট দেওয়ার জন্য আমি 6 টি চরিত্রের জরিমানা নেব take
— গ্যারেথ
আমি ভাবছিলাম যে এটি যদি জে এর জন্য অনুমোদিত হয় তবে অন্য কিছু এন্ট্রি একইভাবে সংক্ষিপ্ত করা যেতে পারে। (বিটিডাব্লু, আমি আপনার প্রস্তাবিত ভাবটি কাজ করতে পারিনি, তবে (],1{x-0{x*])%~/2-/\x=:".1!:1]1কনসোল মোডে ঠিক আছে seems)
— মাঝামাঝি
@ ওহ হ্যাঁ, আমি স্ট্রিং থেকে সংখ্যার তালিকায় রূপান্তর করতে ভুলে গেছি (যদিও শেষে 3 টি সাধারণত আমার পক্ষে ঠিক কাজ করে?)
— গ্যারেথ
আপনি যদি পার্লকে একটি সম্পূর্ণ প্রোগ্রামের পরিবর্তে সাবরুটিন বানিয়ে থাকেন তবে আপনি এটি 50 বাইটে নামিয়ে আনতে পারেন (এবং কোনও কমান্ড-লাইন পতাকা প্রয়োজন নেই): ($a=($_[1]-pop)/($_[0]-$_[1])).$/.($_[1]-$_[0]*$a)
— msh210
4

পিএইচপি, 74,72 , 69

<?fscanf(STDIN,'%d%d%d',$a,$b,$c);echo($d=($c-$b)/($b-$a)).' '.($b-$d*$a);

যখন ইনপুট আর্গুমেন্ট হিসাবে পাস করা হয়:

<?echo($d=($argv[3]-$argv[2])/($b=$argv[2]-$a=$argv[1])).' '.($b-$d*$a);

এখন, @ মেল্লামোকব পরামর্শ অনুসারে, $ n = $ আরজিভি ব্যবহার করে:

<?$n=$argv;echo($d=($n[3]-$n[2])/($b=$n[2]-$a=$n[1])).' '.($b-$d*$a);

সি, 77 , 78

main(a,b,c,d){printf("%d %d",d=(c-b)/(b-a),b-d*a,scanf("%d%d%d",&a,&b,&c));}

so এটি কাজ করে না, এখানে স্টাফ রয়েছে: [@ ইউরোেনকে এটি নজরে আনার জন্য ধন্যবাদ]

main(a,b,c,d){printf("%d %d",d,b-a*(d=(c-b)/(b-a)),scanf("%d%d%d",&a,&b,&c));}
— l0n3sh4rk
সূত্র
+1 বাহ, জানেন না যে আপনি পারবেন fscanfএবং scanfফাঁকা ছাড়াই। অসাধারণ!
— মেলামোকব
1
আপনার দ্বিতীয় পিএইচপি সমাধানে, আপনি নাম পরিবর্তন করে $argvঅর্থাৎ $n=$argvশুরুতে আরও কয়েকটি অক্ষর সংরক্ষণ করতে পারেন নি ?
— মেল্লামোকব
@ মেল্লামবক- হ্যা! আমি সে সম্পর্কে ভেবে দেখিনি! ধন্যবাদ! :)
— l0n3sh4rk
আপনার সি কোড কাজ করে না (আমি লিনাক্সে চেষ্টা করেছি)। আমি একটি খুব অদ্ভুত প্যারামিটার মূল্যায়ন আদেশের উপর নির্ভর করি - কেন আগে করা হবে scanf, d=..তারপরে b-d*a?
— ugoren
1
আমি যা বলতে পারি তা থেকে, সর্বাধিক পরিবেশে কাজ করার জন্য এটি নির্বিচারে "ঘটে" ( উদাহরণস্বরূপ : আদর্শ one.com/I2cPg ), তবে সি তে প্যারামিটারের মূল্যায়নের ক্রমটি সংজ্ঞায়িত আচরণ, এবং তাই প্রযুক্তিগতভাবে নির্ভর করা উচিত নয়: কমলা জাইজিলাইবারেশন ফ্রন্ট .কম /…
— মেল্লামব্যাক
3

ভিবিএ, 57 টি অক্ষর

Sub x(a,b,c)
y=(c-b)/(b-a)
MsgBox y & " " & b-a*y
End Sub

( এটি মূলত অন্যান্য 'বেসিক' ফাংশনের মতোই তবে আমি ইতিমধ্যে সেখানে কোনও ভিবিএ জমা দেখতে পাইনি ))

— Gaffi
সূত্র
আপনি লাইন 3 পরিবর্তন করে 8 বাইট ড্রপ করতে পারেনDebug.?y;b-a*y
— টেলর স্কট
3

এটি বর্ণিত অবিযুক্ত রেজিস্টার মেশিনের জন্য এটি (অপটিমাইজড) কোড: http://www.proofwiki.org/wiki/Difinition

ইনপুটটি 1,2 এবং 3 রেজিস্টারে থাকতে হবে এবং প্রোগ্রামটি শেষ হওয়ার পরে আউটপুট 1, 2 নিবন্ধে হবে। অ-নেতিবাচক এবং অ-পূর্ণসংখ্যার নম্বরগুলি পরিচালনা করা হয় না তবে ইনপুট 0,7,14 এবং 2,5,11 সঠিকভাবে পরিচালনা করা হয়।

Zero[8] Trans[2,11] Jump[3,11,7] Succ[11] Succ[8] Jump[11,11,3] Zero[5] Trans[1,12] Jump[2,12,13] Succ[12] Succ[5] Jump[12,12,9] Zero[17] Trans[8,13] Jump[13,17,25] Zero[16] Trans[5,14] Jump[13,14,22] Succ[14] Succ[16] Jump[14,14,18] Succ[9] Trans[16,13] Jump[17,17,15] Zero[6] Zero[20] Jump[9,6,40] Zero[7] Trans[1,21] Jump[20,7,36] Succ[21] Trans[21,19] Trans[19,21] Succ[7] Jump[7,7,30] Trans[21,18] Trans[18,20] Succ[6] Jump[6,6,27] Trans[20,4] Zero[10] Trans[4,15] Jump[2,15,47] Succ[15] Succ[10] Jump[15,15,43] Trans[9,1] Trans[10,2]

সম্পাদনা করুন: ব্র্যাকগুলি সরিয়ে, এবং নির্দেশের নামগুলি ছোট করে:

ইউআরএম 285

Z8 T2,11 J3,11,7 S11 S8 J11,11,3 Z5 T1,12 J2,12,13 S12 S5 J12,12,9 Z17 T8,13 J13,17,25 Z16 T5,14 J13,14,22 S14 S16 J14,14,18 S9 T16,13 J17,17,15 Z6 Z20 J9,6,40 Z7 T1,21 J20,7,36 S21 T21,19 T19,21 S7 J7,7,30 T21,18 T18,20 S6 J6,6,27 T20,4 Z10 T4,15 J2,15,47 S15 S10 J15,15,43 T9,1 T10,2

— আলেকজান্দারসন
সূত্র
(+1) তবে ... "অ-নেতিবাচক এবং অ-পূর্ণসংখ্যার সংখ্যাগুলি পরিচালনা করা হয় না" ... আমি মনে করি আপনি বলতে চাইছেন যে নেতিবাচক সংখ্যাগুলি পরিচালনা করা হয় না। (ওপি বলেছেন সমস্ত ইনপুট ও আউটপুট পূর্ণসংখ্যা।)
— মাঝামাঝি
আহ, পড়েনি যে আউটপুটটি পূর্ণসংখ্যা ছিল ...
— আলেকজান্দারসন
চরিত্র গণনা বা নির্দেশাবলীর সংখ্যা অনুসারে আমার এটি গণনা করা উচিত?
— ফিনটপিপি
সম্ভবত সম্পাদিত সংস্করণে অক্ষরগুলি গণনা করুন ...
— আলেকজান্দারসন
3

ডস-ব্যাচ, 98

@ECHO OFF&SET/P p=&SET/P q=&SET/P r=&SET/A m=(%r%-%q%)/(%q%-%p%)&SET/A n=%q%-%p%*%m%&ECHO %m% %n%

আলাদা লাইনে ইনপুট দিন

বাশ, 51

m=$((($3 - $2)/($2 - $1)))
echo $m $(($2 - $m*$1))

উদাহরণ: sh prog.sh 2 0 -4 (স্থান পৃথক যুক্তি)

পার্ল, 84

@s=split(/ /,&lt;STDIN&gt;);$m=($s[2]-$s[1])/($s[1]-$s[0]);print $m." ".($s[1]-$s[0]*$m);

জাভা, 297

import java.util.*;public class A{public static void main(String a[]){StringTokenizer s=new StringTokenizer(new Scanner(System.in).nextLine());int i=4;int[] p=new int[i];while(i-->1)p[3-i]=Integer.parseInt(s.nextToken());p[3]=(p[2]-p[1])/(p[1]-p[0]);System.out.print(p[3]+" "+(p[1]-p[0]*p[3]));}}

স্থান পৃথক ইনপুট, স্থান পৃথক আউটপুট।

এসকিউএল, 57

select (&3-&2)/(&2-&1),&2-((&3-&2)/(&2-&1)*&1) from dual

এটি একটি দু: খজনক প্রবেশ, তবে 'ঠিক' উদ্দেশ্যটি সমাধান করে। ক্যোরিটি রানটাইম 1,2,3 এ ইনপুটকে বাঁধায় ইনপুট অনুসারে চলক।

— আমান জিক ভার্মা
সূত্র
যদিও অন্যরা ইতিমধ্যে আপনার bashসমাধানটিকে পরাজিত করেছে , আমি কেবলমাত্র আপনাকে পরামর্শ দিতে চেয়েছিলাম যে আপনি এই সমস্ত অতিরিক্ত স্থান সরিয়ে 6 টি অক্ষর সংরক্ষণ করতে পারতেন।
— মেল্লামোকব
ধন্যবাদ মেল্লামোকব, আমি বুঝতে পেরেছিলাম, পরে আমি এটিকে কেবল উপেক্ষা করেছি। এছাড়াও, আমি আপনার ডস / ব্যাচের সমাধান না ভেবে নিজেকে ঘৃণা করি, এটি আমার মাথাতে ক্লিক করা উচিত ছিল..আরগস আহ!
— আমান জিক ভার্মা
2

প্রশ্ন, 36

{a,x[2]-x[1]*a:%[x[2]-x 1;x[1]-x 0]}

ব্যবহার

q){a,x[2]-x[1]*a:%[x[2]-x 1;x[1]-x 0]}each(0 7 14;2 5 11;2 0 -4;5 -19 77)
1  7 
2  1 
2  -4
-4 1
— tmartin
সূত্র
2

ফরট্রান 44

read*,i,j,k;k=(k-j)/(j-i);print*,k,j-i*k;end

ইনপুটটি একক লাইনে থাকবে (কমা বা স্থান পৃথক)

ক্রে চ্যাপেল 59

var i,j,k:int;read(i,j,k);k=(k-j)/(j-i);write(k," ",j-i*k);

ইনপুটটি একক লাইনে থাকবে, কোনও নতুন লাইন থাকবে না ( writelnএর জায়গায় ব্যবহার করে এর জন্য 2 টি অক্ষর যুক্ত করুনwrite )।

গল্ফ্লুয়া 44

r=I.r;a,b=r(),r();m=(r()-b)/(b-a);w(m,b-m*a)

নিউলাইন সীমিত ইনপুট, স্থান সীমিত আউটপুট

— কাইল কানোস
সূত্র
2

জুলিয়া, 71 অক্ষর

স্থান সীমিত ইনপুট এবং আউটপুট।

i,j,k=int(split(readline(STDIN)));println("$(l=div(k-j,j-i)) $(j-i*l)")

ইনপুট এবং আউটপুট উদাহরণ:

julia> i,j,k=int(split(readline(STDIN)));println("$(l=div(k-j,j-i)) $(j-i*l)")
5 -19 77
-4 1

Piet, 86 60 উন্নত দৃশ্যমানতার জন্য 56 কোডেল (14x4), কোডেল আকার 10

আমি প্রকৃতপক্ষে পুরো 35% দ্বারা কোডেলের পরিমাণ কমিয়ে আনতে পারি। আমি এত ভাল ফলাফল আশা করিনি। এই প্রোগ্রামটি পিছনে পিছনে কোডিং করা ছিল, যেমনটি আমি প্রত্যাশা করেছি, বেশ সফল হয়েছিল। আমি সন্দেহ করি যে এটি এর চেয়েও কম হতে পারে তবে আমি যদি আগ্রহী অন্য কেউ যদি এর থেকেও কম সমাধান খুঁজে পেতে পারে তবে আমি আগ্রহী interested

ফলাফলটি দেখানোর পরে যদি প্রোগ্রামটি থামতে হয় তবে চ্যালেঞ্জটি উল্লেখ করে না, সুতরাং আমার সবচেয়ে ছোট (56 কোডেল) প্রোগ্রামটি বৈধ হওয়া উচিত। ফলাফলটি দেখানোর পরে এটি শুরুতে ফিরে ফিরে আসে, একটি নতুন তিনটি পূর্ণসংখ্যার জন্য জিজ্ঞাসা করে। শক্ত প্যাকিংয়ের কারণে দুটি নতুনলাইন চরিত্রের আউটপুট দেওয়ার কোনও জায়গা নেই, তবে এটি এনপিট ইন্টারপ্রেটারের কোনও সমস্যা নয়, কারণ এটি সর্বদা একটি 'মুদ্রণ করে?' যদি এটি ইনপুটটির জন্য অপেক্ষা করে।

একটি লুপযুক্ত সংস্করণ তৈরি করার জন্য দুটি সম্ভাব্য মাপ রয়েছে, তবে কমপক্ষে c৪ কোডেল (১xx৪) বড় এমন একটি প্রোগ্রামে কেবল একবার চালানো একটি সংস্করণ সম্ভব। নীচের সংস্করণগুলি কারণ দেখায়। যারা পিটের সাথে পরিচিত তাদের জন্যও এটি আকর্ষণীয় হতে পারে।

একটি লুপ সহ চূড়ান্ত, সবচেয়ে শক্তভাবে প্যাক করা 56 কোডেল সংস্করণ :

একটি সিরিজ 56 কোডেলের জন্য বিধি সন্ধান করুন

একটি লুপ সহ দ্বিতীয় সংস্করণ (60 কোডেল)

একটি সিরিজ 60 কোডেলের জন্য বিধি সন্ধান করুন

যদি 56 কোডেল সংস্করণটি বিধিগুলির বিপরীতে থাকে তবে এখানে চূড়ান্ত c৪ টি কোডেল সংস্করণ রয়েছে যা কেবল একবারে চলবে :

একটি সিরিজের 64 এর জন্য নিয়ম সন্ধান করুন, একবার চালান

আমার প্রথম সংস্করণ (86 টি কোডেল)

একটি সিরিজের 86 কোডেলের নিয়ম সন্ধান করুন

ইনপুট এবং আউটপুট নতুন লাইন সীমিত।

ইনপুট এবং আউটপুট উদাহরণ:

D:\codegolf\npiet-1.3a-win32>npiet ml_series.png
? 5
? -19
? 77
-4
1

লুপ করা সংস্করণগুলির জন্য, কিছুটা কুরুচিপূর্ণ খুঁজছেন:

D:\codegolf\npiet-1.3a-win32>npiet ml_series_56_codels.png"
? 5
? -19
? 77
-4
1? 5
? -19
? 77
-4
1? 5
? -19
? 77
-4
1?

আমি ডিলিমিটার হিসাবে নিউলাইনটি বেছে নিয়েছি কারণ ASCII 10 (\ n) কোডিংয়ের পক্ষে ASCII 32 () এর তুলনায় স্পষ্টত মাত্র 7 টি কোডেল প্রয়োজন যার জন্য 8 টি কোডেল বা এমনকি ASCII 40 (,) প্রয়োজন যা 9 কোডেল দরকার।

ফলাফল থেকে প্রথম ইনপুটটিতে পিছনে কোডিং করা রোল ক্রিয়াকলাপের কোডেল ব্যবহার হ্রাস করার একটি দুর্দান্ত উপায়। শুরুতে এবং শেষে স্ট্যাক অর্ডারটি জানা যায়, বাকিটি সহজেই হাত দিয়ে করা হয়।

আমার তৈরি আপ শর্টহ্যান্ডে এখানে 64 টি কোডেল প্রোগ্রামটির একটি পাঠ্য সংস্করণ (স্ট্যাক সহ) রয়েছে। সংক্ষিপ্ত প্রোগ্রামগুলি কেবল শেষ হয় না তবে শুরুতে ফিরে আসে।

NOP ADD DIV GRT DUP INC END
 0   +   /   >   =   c   ~
PSH SUB MOD PTR ROL OUN
 X   -   %   #   @   N
POP MUL NOT SWI INN OUC
 ?   *   !   $   n   C

                   1
        1    1   2 2     1                   a,b,c: input for series
      5 5  3 3 c c cb  3 3                       D: c-b
    b b bb b bbb b bcD D Da                      E: b-a
   bb b bb b baa a aaa a abE F                   F: D/E, (c-b)/(b-a), mul. const.
  bbb b ba a abb b bbb b bDDFFF    5             G: a*F, a(c-b)/(b-a)
 aaaa a aa a aaa a aaa a aaaaaaG  55 10          H: b-G, b-a*F, add. const.
aaaaa a ab b bbb b bbb b bbbbbbbH HH  H H
n=n==5X1X@3X1X@n2X1X@-3X1X@-/=N*-5X=  + CN~
| |            |     |     || |||\____/ ||
| |            |     |     || |||  |    |+———— output add. const.
| |            |     |     || |||  |    +————— output newline character
| |            |     |     || |||  +—————————— 5 DUP + =10, ASCII for \n
| |            |     |     || ||+————————————— H, add. const.
| |            |     |     || |+—————————————— G
| |            |     |     || +——————————————— output mul. const.
| |            |     |     |+————————————————— F, mul. const.
| |            |     |     +—————————————————— E
| |            |     +———————————————————————— D
| |            +—————————————————————————————— input c
| +——————————————————————————————————————————— input b
+————————————————————————————————————————————— input a
— এমএল
সূত্র
1

মুনস্ক্রিপ্ট (48 টি অক্ষর, নিউলাইন সীমিত ইনপুট, স্থান সীমিত আউটপুট)

r=io.read
a,b=r!,r!
m=(r!-b)/(b-a)
print m,b-m*a

ফেলিক্স (৮ cha টি অক্ষর, নিউলাইন সীমিত ইনপুট, কমা সীমিত আউটপুট)

gen r()=>int $ readln stdin;
var a,b=r(),r();
var m=(r()-b)/(b- a);
println(m,b- m*a);

জুলিয়া (৮৮ টি অক্ষর, স্পেস ডিলিমিট ইনপুট, স্পেস ডিলিমিট আউটপুট)

a,b,c=tuple(map(int,split(readline(STDIN)))...)
m=(c-b)/(b-a)
println("$m $(b-m*a)")
— kirbyfan64sos
সূত্র
আপনার জুলিয়া সমাধানটি একটি ত্রুটি ছুড়ে ফেলে। ত্রুটি: tuple.jl এ সূচিযুক্ত_নিষ্টে বাউন্ডস এরর (): 19 লোড করার সময় (2 বার পুনরাবৃত্তি করে) d: \ কোডগল্ফ \ সিরিজ.জেএল, লাইন 1
— এমএল
@ এমএল এটি অদ্ভুত জুলিয়ার নতুন সংস্করণে পরিবর্তিত কিছু হতে পারে। আমি এটা চেষ্টা করব.
— kirbyfan64sos
আমি যদি কনসোলে এটি চেষ্টা করে দেখি তবে প্রথম লাইনের সাথে সাথেই ত্রুটিটি পাই। কোনওভাবে লাইনটি একটি টুপল তৈরি করে, এটি সর্বদা (a, b, 0) আমি যদি এটি একটি .jl ফাইলের মাধ্যমে অন্তর্ভুক্ত করি তবে এটি আউটপুট তৈরি করে, তবে আমি জুলিয়া আরপিএল ফিরে পেতে এন্টার টিপলে ত্রুটি নিক্ষেপ করে। জুলিয়া> অন্তর্ভুক্ত করুন ("শুভ_জন্মের দিন_কোডগল্ফ.জল") 5 -19 77 -4 1 এরিআরআর: বাউন্ডস এরার () ইনডেক্সড এনেক্সট এ tuple.jl: 19 (2 বার পুনরাবৃত্তি) লোড করার সময় d: \ কোডগল্ফ \ সিরিজ.জিল, এক্সপ্রেশন থেকে শুরু লাইন 1 মন্তব্যে লাইন ব্রেকগুলি sertোকানোর কোনও উপায় আছে কি? এই বিশৃঙ্খলার জন্য দুঃখিত.
— এমএল
@ এমএমএল এটিকে কোনও ফাইলে রাখার মাধ্যমে চালানো কি julia file.jlএকই ত্রুটি দেয়?
— kirbyfan64sos
আমি অনুমান করি যে এটি আমার উপরের উত্তরের জগতে পাঠযোগ্য নয়। হ্যাঁ, আমি কনজোল এবং একটি .jl ফাইলের মাধ্যমে উভয়ই চেষ্টা করেছিলাম। "আমি যদি এটি একটি .jl ফাইলের মাধ্যমে অন্তর্ভুক্ত করি তবে এটি আউটপুট তৈরি করে, তবে জুলিয়া আরপিএল ফিরিয়ে আনতে যদি আমি এন্টার টিপায় ত্রুটি নিক্ষেপ করে” " জুলিয়া> রিপল / প্রম্পট ফিরে আসে।
— এমএল
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.