পাঠ্যের এই ব্লকটিকে আউটপুট / মুদ্রণ করুন:
1234567890
2468013579
3691470258
4815926037
5049382716
6172839405
7306295184
8520741963
9753108642
0987654321
গ্রহণযোগ্য ফর্ম্যাটগুলির মধ্যে রয়েছে:
তবে, শেষ সংখ্যাটি পূর্ণসংখ্যা নয় বলে পূর্ণসংখ্যার তালিকা গ্রহণযোগ্য নয়।
এটি কোড-গল্ফ । বাইট জিতে সংক্ষিপ্ত উত্তর। স্ট্যান্ডার্ড লুফোলস প্রযোজ্য।
উত্তর:
Mod[1##,11]~Mod~10&~Array~{10,10}
এটি অনলাইন চেষ্টা করুন! (গণিত ব্যবহার করে।)
1-ভিত্তিক সূচকের ঘরের (x,y)মান রয়েছে((x*y) % 11) % 10
লুইসকে একটি বাইট ধন্যবাদ সংরক্ষণ করা। আমি ভুলে যেতে থাকি এটি &অনুলিপি করা এবং স্থানান্তর করার জন্য একটি শর্টকাট।
10:&*11\10\
@ মার্টিনের অ্যালগোরিদম ব্যবহার করে: x*y % 11 % 10
ব্যাখ্যা:
10 % Pust 10 to the stack. Stack: 1
: % 1-based range. Stack: [1 2 3 ... 10]
& % Duplicate range. Stack: [1 2 3 ... 10],[1 2 3 ... 10]
% Transpose last range. Stack [1 2 3 ... 10],[1;2;3 ...10]
* % Multiply with broadcasting. Stack: [1 2 3 ...;2 4 6...] (10-by-10 array)
11 % Push 11 to the stack. Stack [1 2 3 ...;2 4 6 ...], 11
\ % Modulus.
10 % Push 10 to the stack.
\ % Modulus
% Implicit display
একই উপাখ্যান:
10t:&*11\w\
t!*দ্বারা&*
10|11|∘.×⍨⍳10আমার গণিত উত্তর একটি বন্দর ।
∘.×⍨ ⍝ Multiplication table of...
⍳10 ⍝ The list from 1 to 10.
11| ⍝ mod 11.
10| ⍝ mod 10.বাইট গণনাটি আইএসও 8859-1 এনকোডিং ধরেছে।
10$*
1
,1$`
,1+
$_¶
(?<=(¶?.+)+)1
$#1$*
1{10}1?
,(1*)
$.1
...% 11% 10 অ্যালগরিদমের আর একটি বাস্তবায়ন । এটি একটি রেজেক্সের সাথে করার মজার অংশটি হ'ল আমরা একই সাথে দু'টি মডুলো কম্পিউটারের যত্ন নিতে পারি।
10$*
দশটি স্ট্রিংটি শুরু করুন 1।
1
,1$`
কমা, একটি এবং প্রফিক্সের সাথে তাদের প্রত্যেককে প্রতিটির বদলে দিন। এটি দেয় ,1,11,...,1111111111, অর্থাত্ একটি আনরি রেঞ্জ।
,1+
$_¶
এখন রেঞ্জের প্রতিটি উপাদানকে পুরো স্ট্রিংয়ের সাথে একটি লাইনফিডের পরে প্রতিস্থাপন করুন। এটি আমাদের বর্তমান কলামটি সূচিত করে আনারি সংখ্যার একটি 10x10 গ্রিড দেয়।
(?<=(¶?.+)+)1
$#1$*
প্রত্যেকটির সাথে মিল করুন 1এবং গ্রুপটি একাধিকবার পুনরাবৃত্তি করে এটি নির্ধারণ করুন যে এটি কোন সারিতে রয়েছে। 1যে অনেক 1গুলি সঙ্গে প্রতিস্থাপন । এটি সারিটির 1-ভিত্তিক সূচক দ্বারা প্রতিটি সারিতে মানগুলি গুণ করে।
1{10}1?
এবার এক ধাপে Mod 11, Mod 10 করা যাক । এটা করার জন্য গেলিক ভাষার 11 , আমরা স্বাভাবিকভাবে শুধু সব সরান চাই 1{11}স্ট্রিং থেকে remainders অবশিষ্ট করা হবে। এবং তারপরে আমরা এর 1{10}পরে সরিয়ে ফেলব। তবে আমরা 1যদি সম্ভব হয় মাত্র দশটি প্লাস অন্যকে সরিয়ে দিই , রেজেক্স ইঞ্জিনের লোভ আমাদের পক্ষে যতক্ষণ সম্ভব 11 টি মডেল করবে এবং যদি তা না হয় তবে এটি কমপক্ষে 10 মডার চেষ্টা করব ।
,(1*)
$.1
পরিশেষে, আমরা প্রতিটি সংখ্যার দৈর্ঘ্যের সাথে প্রতিস্থাপন করে দশমিককে রূপান্তর করি।
_=>[...1e9+''].map((_,a,b)=>b.map((_,c)=>-~a*++c%11%10))
চারটি বাইট শ্যাগির জন্য এবং 8 বাইট ধন্যবাদ আরনাউল্ডকে সংরক্ষণ করা হয়েছে।
_=>[...a=Array(10)].map((_,x)=>[...a].map((_,y)=>(x+1)*++y%11%10))। আপনি আমাকে 4 বাইট সংরক্ষণ করুন, আমি আপনাকে 4 বাইট সংরক্ষণ করি :)
map()এবং এর 1e9+''পরিবর্তে আরও 3 টি বাইট ব্যবহার করে আপনি 5 বাইট সংরক্ষণ করতে পারেন Array(10)। যে বাড়ে _=>[...1e9+''].map((_,x,a)=>a.map((_,y)=>-~x*++y%11%10))।
1e9কৌতুক। আমি সেটিকে জানতাম না। আমি তৃতীয় যুক্তিটি ব্যবহার করার কথা ভেবেছিলাম, তবে কোনও কারণে আমি এটি ব্যবহার করিনি।
দেখা যাচ্ছে এটি আমার 200 (মুছে ফেলা) উত্তর এখানে ছিল :)
দেখে মনে হচ্ছে মার্টিন স্পটেড একই সূত্র ।
Aõ
£®*X%B%A
এটি পরীক্ষা করুন ( -Rকেবলমাত্র দর্শনের উদ্দেশ্যে পতাকা)
Aõ :Generate an array of integers from 1 to 10, inclusive.
£ :Map over each element in the array, returning...
® :Another map of the same array, which...
*X :Multiplies the current element of the inner function by the current element of the outer function...
%B :Modulus 11...
%A :Modulus 10.
:Implicit output of resulting 2D array
-Rপতাকাটি ব্যবহার করতে পারেন
o->{String r="";for(int x=0,y;++x<11;r+="\n")for(y=0;++y<11;r+=x*y%11%10);return r;}@ মার্টিনএেন্ডারের ম্যাথমেটিকা উত্তর : 1- সূচকযুক্ত হিসাবে একই অ্যালগরিদম ব্যবহার করে x*y%11%10।
ব্যাখ্যা:
o->{ // Unused Object parameter and String return-type
String r=""; // Result-String
for(int x=0,y;++x<11; // Loop (1) from 1 to 11 (exclusive)
r+="\n") // And append a new-line after every iteration
for(y=0;++y<11; // Inner loop (2) from 1 to 11 (exclusive)
r+=x*y%11%10 // And append the result-String with `x*y%11%10`
); // End of inner loop (2)
// End of loop (1) (implicit / single-line body)
return r; // Return result-String
} // End of method-6 বাইটস অফসিএলাইমকে ধন্যবাদ।
মার্টিনের অ্যালগরিদম ব্যবহার করে যা সে এত দ্রুত কীভাবে এলো সে সম্পর্কে আমার কোনও বোধগম্যতা নেই। o0
r=range(1,11)
print[[x*y%11%10for y in r]for x in r]r=range(1,11)6 বাইট সংরক্ষণ করে
eপরিবর্তে ব্যবহার করেন তবে একটি বাইট সংরক্ষণ করুন% T
1:10%o%1:10%%11%%10সর্বনিম্ন "আর" -আল্কিং বিটটি আমি আর কখনও লিখেছি। মার্টিন ইন্ডারের জবাবের মতো একই অ্যালগরিদম ব্যবহার করে (এবং প্রায় অন্যান্য সমস্ত উত্তরও)। x %o% yহিসাবে একই outer(x, y)।
Ｆχ«ＦχＩ﹪﹪×⁺¹ι⁺¹κ¹¹χ⸿
মার্টিনের সূত্র ব্যবহার করে ।
»s এবং আপনি ব্যবহার করতে পারেন যখন ωপরিবর্তে ””আপনি ব্যবহার দ্বারা বাইট আভা সংরক্ষণ করতে পারবেন ⸿হিসাবে এই তখন হয়ে Ｆχ«ＦχＩ﹪﹪×⁺¹ι⁺¹κ¹¹χ⸿। (আমি জানার আগে আমি ⸿প্রস্তাব দিয়েছি Ｊ⁰ιযা এখনও অনেকগুলি বাইট সংরক্ষণ করতে পারে))
⸿এটি বিপরীত অপারেটর, যুক্তি ছাড়াই এটি আপনার কোডের শেষে কী করে? এটি কি নথিভুক্ত?
⮌বিপরীত অপারেটর হয় ⸿হয় move cursor to start of next lineঅক্ষর (মত ¶কিন্তু একটি পৃথক স্ট্রিং হতে পারে)।
f(x,y){for(x=0;x++<10;puts(""))for(y=0;y++<10;putchar(x*y%11%10+48));}[|?[|?a*b%11%z';
এটি অবশ্যই মার্টিনের পদ্ধতি ব্যবহার করে। এটি এই কিউব্যাসিক কোডটিতে অনুবাদ করে ।
[| FOR A = 1 to 10 ([ starts a FOR loop, | delimits the list of arguments;
a FOR loop with 0 args loops from 1 to 10 by default with increment 1.
? PRINT a newline
[| Start a second FOR loop from 1-10, iterator b
? PRINT
a*b%11%z the result of Martin's formula.
'; and suppress newlines/tabs/spaces
_=>{var r="";for(int x=0,y;++x<11;r+="\n")for(y=0;++y<11;r+=x*y%11%10);return r;}অন্যান্য উত্তরগুলির বেশিরভাগ হিসাবে একই অ্যালগরিদম এবং মূলত @ কেভিনস জাভা উত্তরের সি # বন্দর ।
12345678902468013579369147025848159260375049382716
.*
$&$&
O$^50>`.
.{10}
$&¶
10,{){\)*11%10%}+10,%}%`
-13 মার্টিন ইন্ডার প্রস্তাবিত একটি চতুর কৌশলটির জন্য ধন্যবাদ ।
{-> ;, }-> `) তবে আপনি কমপক্ষে প্রথমটি ড্রপ করতে পারেন [।
{){\)*11%10%}+10,/n}10,/
/। ;)
int blk +-> {int space contents-of-blk}।
+কৌশলটি কার্যকর করেছি ... যদিও আমি আপনার কোডটি কিছুটা পরিবর্তন করেছি
f(n,t){for(n=11;++n<121;putchar(t?t%10+48:10))t=n/11*n%11;}
10$*T
M!&`T+
m`$
;110$*T10$*
1
09876543210
m`(?<=^\1;\1{0,9}(T+))T
C
(?<!C.{108})\S
TS F~u0+*i>i%
TS - [1, 2, 3, 4, 5, 6, 7, 8, 9]
F~u0+*i>i% - for i in ^:
~u0+ - "01234567890"
* - ^ * i
i> - ^[i:]
i% - ^[::i]
for(;9>=$y++||9>=$x+=$y=print"
";)echo($x+1)*$y%11%10;for(;$x++<=9;print"
")for($y=0;$y++<=9;)echo$x*$y%11%10;()।
for(;<0>$y++||10>$x+=$y=print"\n";)echo($x+1)*$y%11%10;
for($x=1;11>++$y||11>$x+=$y=print"\n";)echo$x*$y%11%10;
1":(10|11|*&>:)"0/~@(i.@9:)
মার্টিন ইন্ডারের ম্যাথমেটিকা উত্তরের মতো একই কৌশল ব্যবহার করুন ।
1un@i/
/10<@i/01234567890/jl10<qnc0a^t>jtl%n>একটি (মোটামুটি) রডের পাইথন উত্তরের সরল বাস্তবায়ন।
1un !initialize register n to 1!
@i/<nl>/ !insert a newline!
10< !loop for 10 rows!
@i/01234567890/ !insert the mysterious string of digits!
j !move point to start of buffer!
l !move forward past the newline!
10< !loop for 10 digits on a line!
qnc !move point forward by n characters!
0a^t !print the character at point!
> !end inner loop!
j !move point to start of buffer!
t !print (empty) line!
l !move to start of digit string!
%n !increment register n (for next line)!
> !end outer loop!<ESC> নির্ধারিত সন্নিবেশ এবং control টি কমান্ডের জন্য একটি নিয়ন্ত্রণ চরিত্র ব্যবহার করা পঠনযোগ্যতার ব্যয়ে আরও তিন পাঁচটি বাইট সংরক্ষণ করতে পারে ।
মার্টিনের Mod-11 / Mod-10 সূত্র ব্যবহার করা আসলে actually A এবং ^ T এর জন্য নিয়ন্ত্রণ ব্যবহার করে এটি 43 বাইটে দীর্ঘায়িত হয়, বেশিরভাগ কারণে যে TECO এর কাছে কোনও আধুনিক অপারেটর নেই।
0ur10<%run10<qn-10"g-11%n'qn\r0a^Tqr%n>^a
^A>মোড 11 একটি চলমান ফ্যাশনে করা হয়েছে যখনই 11-এর বাইরের সংখ্যাটি 11-এর বেশি করে QN-এ বৃদ্ধি করবে The qn\r0a^T ক্রমটি সম্পাদনা বাফারে সংখ্যাটি দশমিক অঙ্ক হিসাবে সন্নিবেশ করায়, শেষ সংখ্যাটি বিপরীত করে, বাফার থেকে পুনরুদ্ধার করে এবং টাইপ করে, মূলত Mod-10 করছেন।
আমি এটি সংক্ষিপ্ত হবে আশা। আচ্ছা ভালো.