N- মাত্রিক N ^ N অ্যারে N দিয়ে পূর্ণ filled


62

ইন:  পর্যাপ্ত স্মৃতি এবং একটি ধনাত্মক পূর্ণসংখ্যা এন

আউট:  এন-ডাইমেনশনাল এন ^ এন অ্যারে ভর্তি এন, যেখানে এন ^ N এর অর্থ এন-বাই-এন-এন-এর N পদগুলি ...

উদাহরণ:

1: [1]যা দৈর্ঘ্য 1 এর 1D অ্যারে (একটি তালিকা), এতে একক 1 থাকে

2: [[2,2],[2,2]]যা 2 সারি এবং 2 কলাম সহ 2 ডি অ্যারে (একটি সারণী), 2s দিয়ে পূর্ণ

3: [[[3,3,3],[3,3,3],[3,3,3]],[[3,3,3],[3,3,3],[3,3,3]],[[3,3,3],[3,3,3],[3,3,3]]]যা 3 ডি দিয়ে ভরা 3 স্তর, 3 সারি এবং 3 কলাম সহ 3 ডি অ্যারে (কিউব) হয়

4: [[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]]]

5 এবং 6: দয়া করে একটি উত্তর দেখুন see


আমাদের ভাষা যদি অ্যারে সমর্থন করে না, তবে গ্রহণযোগ্য আউটপুট ফর্ম্যাটটি কী হবে?
Okx

17
যেহেতু "পর্যাপ্ত স্মৃতি" ইনপুটটির অংশ, তাই আমি এমন একটি উত্তর দেখতে চাই যা কোনও রোবটকে আসলে স্মৃতিটিকে ইনপুট হিসাবে নিতে এবং এটি ব্যবহারের আগে এটি প্লাগ ইন করতে নিয়ন্ত্রণ করে।
ব্যবহারকারী 2357112

1
সমস্ত অ্যারে পৃথক পৃথক বস্তু হতে হবে?
নীল

1
@ ব্যবহারকারী 2357112 আমি মনে করি এটি পূর্ব শর্তের প্রকারের সমস্যা more আমি সন্দেহ করি অপ্টটি আসলে ফাংশনটি মেমরিটিকে ইনপুট হিসাবে স্বীকার করে বলে প্রত্যাশা করে।
গ্রেট হাঁস

2
@ দ্য গ্রেটডাক সঠিক, তবে আমি নিশ্চিত যে ইউজার 2357112 এটিকে রসিকতা হিসাবে বোঝানো হয়েছে।
অ্যাডাম

উত্তর:


50

পাইথন , 32 বাইট

lambda n:eval('['*n+'n'+']*n'*n)

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

মত একটি স্ট্রিং তোলে "[[[n]*n]*n]*n"সঙ্গে nmultiplcations, পাইথন কোড যেমন মূল্যায়ন করে। যেহেতু মূল্যায়ন ফাংশন স্কোপের মধ্যে ঘটে তাই ভেরিয়েবলের নামটি ফাংশন ইনপুটটিতে nমূল্যায়ন করে।


3
সুযোগের কৌশলটি প্রতিভা
গ্রিফিন

+1, সেই alভাল ট্রিকটি সত্যই প্রচুর বাইটে
গল্ফ করে

31

জে, 4 বাইট

$~#~

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

ব্যাখ্যা

$~#~  Input: integer n
  #~  Create n copies of n
$~    Shape n into an array with dimensions n copies of n

6
আমি যখন চ্যালেঞ্জের শিরোনাম দেখলাম, তখনই আমি জেয়ের কথা ভাবলাম। খুব সুন্দর যে জে এমনকি জেলিকে জিতায় (জে দ্বারা অনুপ্রাণিত গল্ফিং ভাষা)।
ডেন

1
এছাড়াও আছে $~$~যা সমতূল্য পাশাপাশি নিজেই পুনরায়
মাইল

2
$~$~ইংরেজিতে অনুবাদ ... অর্থ, আরও কিছু পান, অর্থ, আরও কিছু পান ...
ম্যাজিক অক্টোপাস উর্ন



9

আর, 26

এটি সুস্পষ্ট উত্তর তবে সম্ভবত কিছু চালক আছে?

n=scan();array(n,rep(n,n))

হয় scan()প্রয়োজনীয়?
অ্যাডাম

অন্যান্য উত্তরগুলির দিকে তাকালে মনে হয় এটির কোনও ফাংশন হতে হবে বা কোনওভাবে ইনপুট গ্রহণ করতে হবে?
ফ্লাউন্ডারিয়ার

1
ঠিক আছে, আমি আর কিছু জানি না। আমি কেবল ভেবেছিলাম যে আপনি এর পরিবর্তে কোনও ফাংশন নির্দিষ্ট করতে পারেন।
অ্যাডাম

হ্যাঁ, আপনি প্রতিস্থাপন করতে পারেন n=scan();দ্বারা function(n)কিন্তু তা আর করে তোলে।
ফ্লাউন্ডারার

5
আপনি নির্বাণ পর এক বাইট সংরক্ষণ করতে পারবেন nভেতরে নিয়োগ array: array(n<-scan(),rep(n,n))
rturnbull


8

হাস্কেল , 52 বাইট

f n=iterate(filter(>'"').show.(<$[1..n]))(show n)!!n

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

@ নিমির উত্তর দ্বারা অনুপ্রাণিত হয়েছে , তবে আরও পূর্বনির্ধারিত ফাংশন ব্যবহার করছেন।

  • ব্যবহার iterateএবং !!একটি recursive সাহায্যের ফাংশনের পরিবর্তে।
  • "হাত দ্বারা" তালিকার সীমানা তৈরির পরিবর্তে filter(>'"').showস্ট্রিংগুলির একটি তালিকা ফর্ম্যাট করতে ব্যবহার করে অতিরিক্ত "অক্ষরগুলি সরিয়ে ফেলা হয় ।

8

05 এ বি 1 ই (উত্তরাধিকার) , 6 5 বাইট

-1 কেভিন ক্রুইজসেনকে ধন্যবাদ

F¹.D)

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

F     # For 0 .. input
 ¹.D) # Push <input> copies of the result of the last step as an array

নেতৃস্থানীয় Dকারণ ইনপুট পরোক্ষভাবে আবার ব্যবহার করা হয় মুছে ফেলা হতে পারে (নিশ্চিত না এই একটা জিনিস যখন আপনি উত্তর পোস্ট করা হয়েছে, কিন্তু আপনি স্পষ্ট প্রয়োজন হবে না Dআর এখন)।
কেভিন ক্রুইজসেন

1
@ কেভিন ক্রুজসেন আমি মনে করি এটি এমন একটি উত্তর যা আমাদের একাধিকবার সুস্পষ্টভাবে ইনপুট নেওয়ার ধারণা দিয়েছে :)
রিলে

আহ, ঠিক আছে. আমি সত্যিই এটি পোস্ট করার সময় নিখুঁতভাবে না প্রত্যাশা করছিলাম, তবে বুঝতে পারলাম যে আমার মন্তব্য পোস্ট করার পরে (যা আমি সম্পাদনা করেছি)। ;) কখনও কখনও এটি মজার বিষয় হয় যে পুরানো উত্তরের মাধ্যমে (স্পষ্টত প্রাক-2017) স্পষ্ট জিনিসগুলি কতটা করা হচ্ছে এবং এটি এখন কতটা খাটো করা যায়।
কেভিন ক্রুইজসেন

7

অক্টাভা, 35 33 25 23 20 বাইট

@(N)ones(N+!(1:N))*N

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

@(N)ones(N*ones(1,N))*N

@(N)repmat(N,N*ones(1,N))

@ লুইস মেন্ডোকে ধন্যবাদ 8 টি বাইট সংরক্ষণ

@(N)ones(num2cell(!(1:N)+N){:})*N

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

পূর্ববর্তী উত্তর:

@(N)repmat(N,num2cell(!(1:N)+N){:})

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


@ লুইস মেন্ডো ইঁদুর, আমি কেবল এটি পোস্ট করতে যাচ্ছি;)
বেকার

@ বেকার ওফস :-)
লুইস মেন্ডো

7

হাস্কেল, 62 বাইট

n#0=show n
n#l='[':tail((',':)=<<n#(l-1)<$[1..n])++"]"
f n=n#n

ব্যবহারের উদাহরণ: f 2-> "[[2,2],[2,2]]"এটি অনলাইন চেষ্টা করুন!

হাস্কেলের কঠোর প্রকারের ব্যবস্থা এমন কোনও ফাংশনকে বাধা দেয় যা বিভিন্ন গভীরতার নেস্টেড তালিকাগুলি ফিরিয়ে দেয়, তাই আমি স্ট্রিং হিসাবে ফলাফলটি তৈরি করি।

কিভাবে এটা কাজ করে:

n#l=                         n with the current level l is
    '[':                     a literal [ followed by
           n#(l-1)<$[1..n]   n copies of   n # (l-1)
        (',':)=<<            each prepended by a , and flattened into a single list
      tail                   and the first , removed
                  ++"]"      followed by a literal ]

n#0=show n                   the base case is n as a string

f n=n#n                      main function, start with level n         

আমরা আরো builtin ফাংশন সঙ্গে একই ধারণা খাটো করতে পারেন: f n=iterate(filter(>'#').show.(<$[1..n]))(show n)!!n
আরজান জোহানসেন

@ আরজান জোহানসেন: এটি দুর্দান্ত ধারণা। এটি আলাদা উত্তর হিসাবে পোস্ট করুন।
নিমি

আপনি কি দিয়ে বাইট শেভ করতে পারেন (#0)=show? হাস্কেলের সাথে খুব বেশি পরিচিত নয়
সাইয়েস

@ কিয়েস: না, এটি একটি সিনট্যাক্স ত্রুটি। একটি সঠিক সিনট্যাক্সের জন্য আমি আর্গুমেন্টগুলি এবং ব্যবহারগুলি ফ্লিপ করতে পারি (#)0=show, তবে কোনও ফাংশনের সমস্ত সংজ্ঞায় অবশ্যই যুক্তিগুলির একই সংখ্যা থাকতে হবে। দ্বিতীয় লাইনে ( n#l='['...) দুটি আর্গুমেন্ট দরকার, সুতরাং প্রথম লাইনে দুটি আর্গুমেন্টও থাকতে হবে।
নিমি

6

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

ttY"l$l*

এমএটিএল অনলাইনে এটি ব্যবহার করে দেখুন ( এমএটিএল -এ সমস্ত এন-ডাইমেনশনাল আউটপুটগুলিকে 2 ডি ম্যাট্রিক হিসাবে দেখানো হয়েছে যেখানে সমস্ত মাত্রা> 2 দ্বিতীয় মাত্রায় সমতল হয়) আমি আউটপুটটির আসল আকার দেখাচ্ছে এমন কিছু কোড যুক্ত করেছি ।

ব্যাখ্যা

        % Implicitly grab the input (N)
tt      % Make two copies of N
Y"      % Perform run-length decoding to create N copies of N
l$1     % Create a matrix of ones that is this size  
*       % Multiply this matrix of ones by N
        % Implicitly display the result  

আপনার জমাটি সঠিক কাজ করে কিনা তা আমি সত্যিই এমএটিএল অনলাইন থেকে বলতে পারি না। প্রতিটি উত্তর একটি প্রশস্ত ম্যাট্রিক্স মত মনে হচ্ছে।
অ্যাডাম

4
@ অ্যাডম মাত্রা দ্বিতীয়টি ছাড়িয়ে দ্বিতীয় হিসাবে প্রদর্শিত হবে। সুতরাং উদাহরণটি উত্পাদিত 3x3x3 অ্যারের পরিবর্তে একটি 3x9 অ্যারে দেখায়। আপনি যদি Zy
লুইস মেন্ডো

6

পাইথন 2 , 36 বাইট

-২ বাইটস @ ক্যালকুলেটরফলিনকে ধন্যবাদ

a=n=input()
exec"a=[a]*n;"*n
print a

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



টিআইও লিঙ্কটি অন্তর্ভুক্ত করা কি সম্ভব হবে ?
Adám

1
আসলে, এই! (-8 বাইট অপ্টিমাইজড অ্যালগরিদমের কারণে, আউটপুট যোগ করতে +9 বাইট)
ক্যালকুলেটরফলাইন

@ ক্যালকুলেটরফলাইন বাইট গণনায় অন্তর্ভুক্তি এড়াতে আপনি শিরোনাম এবং পাদলেখগুলিতে জিনিস রাখতে পারেন।
Adám

1
সম্পূর্ণ প্রোগ্রাম জমা দেওয়ার ক্ষেত্রে কি ইনপুট এবং আউটপুট প্রয়োজন হয় না?
ক্যালকুলেটরফলাইন


5

জেলি , 5 বাইট

⁾Wẋẋv

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

কিভাবে?

⁾Wẋẋv - Main link: n                            e.g.       3
⁾Wẋ   - character pair literal ['W','ẋ']                  "Wẋ"
   ẋ  - repeat list n times                               "WẋWẋWẋ"
    v - evaluate as Jelly code with input n          eval("WẋWẋWẋ", 3)
      - ...
        WẋWẋ... - toEval: n                e.g. 3
        W        - wrap                        [3]
         ẋ       - repeat list n times         [3,3,3]
          Wẋ     - wrap and repeat            [[3,3,3],[3,3,3],[3,3,3]]
            ...  - n times total             [[[3,3,3],[3,3,3],[3,3,3]],[[3,3,3],[3,3,3],[3,3,3]],[[3,3,3],[3,3,3],[3,3,3]]]

দ্বিতীয় 5 বাইট জেলি উত্তর। এখনও জে :-) তুলনায় অগ্রহণযোগ্য দীর্ঘ
অ্যাডাম

2
... এবং চেষ্টা করার অভাবে নয়: ডি
জোনাথন অ্যালান

5

জাভা 97 96 95 বাইট

Object c(int n,int i){Object[]a=new Object[n];for(int j=0;j<n;)a[j++]=i<2?n:c(n,i-1);return a;}

Ungolfed:

public class N_Dim {

    public static Object create(int n) {
        return create(n, n);
    }

    public static Object create(int n, int i) {
        Object[] array = new Object[n];
        for(int j=0;j<n;j++) {
            array[j] = i<2?n:create(n, i - 1);
        }
        return array;
    }

    public static void main(String[] args) {
        System.out.println(Arrays.deepToString((Object[]) create(3)));
    }

}

1
আপনি প্রতিস্থাপন করতে পারেন i<=1সঙ্গে i<2?
ক্লিফরুট

হ্যাঁ @ ক্লিফ্রট কাজ করেছে। ধন্যবাদ !!
anacron

1
আপনি একটি ল্যাম্বডা দিয়ে কয়েকটি বাইট সংরক্ষণ করতে পারেন:(n,i)->{...}

জাভা 8 ল্যাম্বডাস ftw

1
হুম, দেখে মনে হচ্ছে এটি অতিরিক্ত ইনপুট নেয়। এটি বৈধ হওয়ার জন্য আপনাকে কেবল একটি প্যারামিটারের একটি পৃথক পদ্ধতি তৈরি করতে হবে।
জাকব

5

জাভাস্ক্রিপ্ট (ES6), 38 বাইট

f=(n,m=n)=>m?Array(n).fill(f(n,m-1)):n

এর স্মৃতি-ক্ষুধারিত সংস্করণটি 45 বাইট:

f=(n,m=n)=>m?[...Array(n)].map(_=>f(n,m-1)):n

5

বাশ + জিএনইউ ইউটিলিটিস, 117 বাইট

n=$[$1**$1]
seq -f$1o%.fd$n+1-p $n|dc|rev|sed -r "s/(0+|$[$1-1]*).*$/\1/;s/^(0*)/\1$1/;s/^1/[1]/"|tr \\n0$[$1-1] \ []

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


প্রোগ্রামটি মূলত 0 থেকে (n ^ n) -1 থেকে বেস এনগুলিতে গণনা করে, যেখানে এন ইনপুট। গণনায় প্রতিটি বেস-এন নম্বর কে এর জন্য এটি নিম্নলিখিত করে:

  1. যদি কমপক্ষে একটি অঙ্ক 0 দিয়ে শেষ হয়, কে এর শেষে প্রতিটি অঙ্ক 0 এর জন্য একটি '[' মুদ্রণ করুন।
  2. মুদ্রণ এন।
  3. যদি কমপক্ষে একটি অঙ্কের এন -1 দিয়ে শেষ হয়, কে এর শেষে প্রতিটি অঙ্কের এন -1 এর জন্য একটি ']' মুদ্রণ করুন।

(একটি বিশেষ কেস হিসাবে মান = 1 টি বন্ধনী যুক্ত করা দরকার This এই ইনপুট মানটি স্ট্ডারকে কিছু আউটপুট উত্পন্ন করে, যা স্ট্যান্ডার্ড পিপিসিজি বিধি অনুসারে উপেক্ষা করা যেতে পারে))

এই ধারণাটি বাস্তবায়নের জন্য আরও একটি ছোট উপায় আছে।


নমুনা রান:

./array 3
[[[3 3 3] [3 3 3] [3 3 3]] [[3 3 3] [3 3 3] [3 3 3]] [[3 3 3] [3 3 3] [3 3 3]]]



4

পাইথন 3 , 57 53 50 38 বাইট

f=lambda n,c=0:n-c and[f(n,c+1)*n]or 1

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


-4 বাইটস @ ক্যালকুলেটরফলিনকে ধন্যবাদ


34 বাইট:

f=lambda c,n:c and[f(c-1,n)*n]or 1

হিসাবে বলা প্রয়োজন f(4,4)


আপনার কোড লাইনগুলি টিআইও লিঙ্কের সাথে তুলনা করে কেন?
Adám

আপনি প্রতিস্থাপন করতে পারেন c>1সঙ্গে c 1 বাইট সংরক্ষণ করুন। (মার্কডাউন, পুরো স্থান জুড়ে নকল করা বন্ধ করুন `)
ক্যালকুলেটরফলাইন

@ ক্যালকুলেটরফ্লাইন আমার মনে হয় না সে পারে; যে c>0এই বিশেষ ক্ষেত্রে হবে।
এরিক আউটগল্ফার

তারপরে প্রান্তটি পরিবর্তন করুন <space>n। সমস্যা সমাধান এবং বোনাস – আরও বাইট সংরক্ষণ করা! : ডি (সুতরাং ইনলাইন কোডের শেষে ফাঁকা স্থানগুলি সম্ভব, তবে কি এটি শুরুর নয়?) টিআইও লিঙ্ক
ক্যালকুলেটরফলাইন

@ অ্যাডাম: টিআইও-তে মূল ফাংশনটি শিরোনামে নির্ধারিত করার জন্য এবং এখানে মূল ফাংশনটি শেষ লাইনে রাখার জন্য।
ক্যালকুলেটরলাইন


4

রুবি, 27 বাইট

->a{(z=a).times{z=[z]*a};z}

Xnor এর অদ্ভুত পাইথন উত্তর থেকে 'ইওল' ট্রিকের পরিবর্তে কেবল আরও 1 বাইট বেশি তবে ভিন্ন পদ্ধতির ব্যবহার।


3

পার্ল 6 , 25 বাইট

{($^n,{$_ xx$n}...*)[$n]}

শুরু হয় nএবং পুনরাবৃত্তভাবে "পুনরাবৃত্তি এন টাইম" রূপান্তর nসময়গুলি প্রয়োগ করে , প্রতিবার Listনীড়ের অতিরিক্ত স্তর তৈরি করে ।

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


$_বাইট সংরক্ষণ করতে পরিবর্তে ব্যবহার করুন
জো কিং

@ জোকিং: আমি ইতিমধ্যে $_অভ্যন্তরীণ ব্লকের প্যারামিটার হিসাবে ব্যবহার করেছি, তাই আমি এটিকে বাইরের ব্লকের প্যারামিটার হিসাবেও ব্যবহার করতে পারি না।
23:48

হ্যাঁ, তবে $nএবং $_সর্বদা একই মান থাকে। এটি অনলাইন চেষ্টা করুন!
জো কিং

3

পিএইচপি, 70 62 বাইট

এটি আমি নিয়ে আসতে পারি সবচেয়ে সহজ।

for(;$i++<$n=$argv[1];)$F=array_fill(0,$n,$F?:$n);print_r($F);

প্রথম যুক্তি হিসাবে ইনপুট নেয় এবং স্ক্রিনে ফলাফল অ্যারে মুদ্রণ করে।


আমাকে 8 বাইট সংরক্ষণ করার জন্য @ ব্যবহারকারী59178 কে ধন্যবাদ !


এর মতো পূর্ব-নির্ধারিত ভেরিয়েবলগুলি অপ্রয়োজনীয়, যেমনটি $l। ড্রপ $i=0,& প্রতিস্থাপন $lসঙ্গে $n 7 বাইট পরিমাণ সঞ্চয় হয়। একটি অতিরিক্ত বাইট বরাদ্দ না করে সংরক্ষণ করা যাবে $F, বরাদ্দ $nশর্তসাপেক্ষ এবং একটি তিন ব্যবহার $F?:$nমধ্যেarray_fill()
user59178

@ ব্যবহারকারী59178 আপনার মনে ছিল কি এটি ছিল তা আমি জানি না তবে টিপসের জন্য আপনাকে ধন্যবাদ। আপনি আমাকে 8 বাইট সংরক্ষণ করেছেন!
ইসমাইল মিগুয়েল

3

ক্লোজার, 36 বাইট

#(nth(iterate(fn[a](repeat % a))%)%)

ফাংশনকে আইট্রেট করে যা তার আর্গুমেন্টের পুনরাবৃত্তি করে n, এটি এ জাতীয় উপাদানগুলির সীমাহীন ক্রম তৈরি করে এবং তারপরে তার nউপাদান গ্রহণ করে ।

এটি অনলাইনে দেখুন



3

ব্যাচ, 141 বাইট

@set t=.
@for /l %%i in (2,1,%1)do @call set t=%%t%%,.
@set s=%1
@for /l %%i in (1,1,%1)do @call call set s=[%%%%t:.=%%s%%%%%%]
@echo %s%

ব্যাচের আসলে অ্যারে নেই তাই এটি কেবল একটি অ্যারের স্ট্রিং প্রতিনিধিত্ব মুদ্রণ করে। ব্যাখ্যা: প্রথম দুটি লাইন ভেরিয়েবলের মধ্যে s N .দ্বারা বিচ্ছিন্ন একটি পুনরাবৃত্ত প্যাটার্ন তৈরি করে । চতুর্থ লাইনটি পরে - মাত্রিক অ্যারে তৈরি করতে এটি প্রতিস্থাপনের সময় হিসাবে ব্যবহার করে । ডাবলটি প্রয়োজনীয় কারণগুলি এবং বিবৃতিগুলি কীভাবে কাজ করে। প্রথমত, কমান্ডটি ভেরিয়েবলকে প্রতিস্থাপন করে। এটি হ'ল, আমার সমস্ত লক্ষণ দ্বিগুণ হয়ে গেছে, ফলে এটি সমস্তগুলি সরিয়ে নেওয়া ছাড়া কিছুই করে না, ফলস্বরূপ । এটি তারপরে ফলাফলের বিবৃতিটির পুনরাবৃত্তি করে । প্রতিবার, কমান্ডটি ভেরিয়েবলকে প্রতিস্থাপন করে। এই মুহুর্তে, ভেরিয়েবলের কেবল একটি একক সেট থাকেN-1 ,tNNcallforsetfor%call call set s=[%%t:.=%s%%%]Ncalls%s, সুতরাং এটি প্রতিস্থাপিত হয়, ফলাফল (যেমন) call set s=[%t:.=[2,2]%]। তারপরে অভ্যন্তরীণ কলটি tপরিবর্তনশীলকে প্রতিস্থাপন করে , ফলস্বরূপ (যেমন) set s=[[2,2],[2,2]], পছন্দসই অ্যাসাইনমেন্টটি সম্পাদন করে। এর চূড়ান্ত মানটি sতখন মুদ্রিত হয়।


+1 বাহ, আমি এটি আশা করতাম না। সমস্ত নম্র .bat ফাইলের শোক!
অ্যাডাম

3

ক্লোজার, 49 বাইট

(defmacro r[n]`(->> ~n ~@(repeat n`(repeat ~n))))

সংক্ষিপ্ত ক্লোজারের উদাহরণ নয়, তবে আমি উদ্ধৃতি এবং উদ্ধৃতি দিয়ে নিজেকে বিস্মিত করেছি।


3

আমি , 7 বাইট

আমি আমার সহকর্মী, আই এর স্রষ্টার কাছ থেকে এটি পেয়েছি।

#Bbhph~

#Bb     কপি #ফাংশন বি ound করার b inding
   hp   (ডান) থেকে যুক্তি ওক্ পি Ower ফাংশন (পুনরাবৃত্তি)
     h~ ওক্ বাঁদিকে যুক্তি ~(সমগ্র ফলে ফাংশনের)

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


আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.