12

ধনাত্মক পূর্ণসংখ্যার একটি তালিকা দেওয়া হয়েছে, এমন কোড লিখুন যা দীর্ঘতম সুসংগত উপ-তালিকার দৈর্ঘ্য খুঁজে পাবে যা বাড়ছে (কঠোরভাবে নয়)। এটি এমন দীর্ঘতম সাবলিস্ট যা প্রতিটি উপাদান শেষের চেয়ে বড় বা সমান।

উদাহরণস্বরূপ যদি ইনপুটটি ছিল:

$[1,1,2,1,1,4,5,3,2,1,1]$

দীর্ঘতম বর্ধমান উপ-তালিকাটি , সুতরাং আপনি আউটপুট পাবেন । $[1,1,4,5]$ $4$

আপনার উত্তরটি এর উত্সটি বাইটের তালিকা হিসাবে গ্রহণ করে এবং তারপরে সেই তালিকার দীর্ঘতম বর্ধমান উপ-তালিকার দৈর্ঘ্য সন্ধান করে স্কোর করা হবে। একটি কম স্কোর গোল হয়। বন্ধগুলি কম সামগ্রিক বাইট সহ প্রোগ্রামগুলির পক্ষে ভেঙে যায়।

code-challenge source-layout

— অ্যাডহক গার্ফ হান্টার
সূত্র

1 এর পরিবর্তে সত্য ফিরে আসা কি ঠিক আছে? এবং আমাদের কি খালি তালিকা পরিচালনা করতে হবে?

— জো কিং

আপনার প্রথমটির জন্য, যতটা মেটা sensকমত্য আপনি যে অঙ্কের আউটপুটে করতে পারেন তা হ'ল, আমি এর Trueবিকল্প হিসাবে মনে করি না 1তবে তা হতে পারে। আপনার খালি তালিকা পরিচালনা করতে সক্ষম হওয়া উচিত (আউটপুট অবশ্যই 0 হয়)।

— অ্যাডহক গার্ফ হান্টার

2

প্রস্তাবিত পরীক্ষার বিষয়: [] => 0, [0] => 1, [3,2,1] => 1,[1,2,1,2] => 2

— সোক

আপনি কি 'স্কোর' আরও কিছুটা বিশদ ব্যাখ্যা করতে চান?

— ওফ্ল্যাক করুন

1

@ouflak আমি নিশ্চিত নই যে স্কোরটিতে আরও কী বলার আছে। আপনার জমাটি বাইটের তালিকায় রূপান্তর করুন এবং এটি আপনার নিজস্ব প্রোগ্রামের মধ্য দিয়ে দিন এবং এটিই আপনার স্কোর। যদি স্কোরগুলি সমান হয় তবে টাই-ব্রেকারটি বাই-কাউন্ট হয়

— জো কিং

6

পাইথ , স্কোর 2 (8 বাইট)

lefSIT.:

এখানে চেষ্টা করুন!

কোড পয়েন্ট [108, 101, 102, 83, 73, 84, 46, 58]। আরও একটি সংক্ষিপ্ত সমাধান, leSI#.:স্কোর 3, তবে এর কোড পয়েন্টগুলি হ'ল [108, 101, 83, 73, 35, 46, 58], যা আসলে 1 এর স্কোরের খুব কাছাকাছি। ~~কিছুটা পুনরায়~~.: সাজানো কখনই নয়মাইন্ডেন্ডকে ~~সহায়তা করতে পারে~~ , অন্তর্নির্মিত সাবস্ট্রিংগুলি যা পুনরায় সাজানো যায় না তাই প্রোগ্রামটি যদি এটির ব্যবহার করে তবে সর্বনিম্ন স্কোর 2 হতে হবে।

কিভাবে?

lefSIT.:     Full program. Accepts either a list or a string from STDIN.
      .:     Substrings.
  f  T       Only keep those that are...
   SI        Sorting-Invariant.
le           Length of the last item.

— মিঃ এক্সকোডার
সূত্র

5

হাস্কেল , স্কোর 2, 66 64 61 60 65 বাইট

-2 বাইটস ম্যাক্স ইয়েখলাভকে ধন্যবাদ
-1 বাইট ধন্যবাদ নিমিকে
খালি তালিকাটি পরিচালনা করতে +5 বাইট

foldr1 max.g
g[]=[0]
g(x:y:z)|x>y=1: g(y:z)
g(_:y)|a:b<-g y=1+a:b

এটি অনলাইন চেষ্টা করুন! (নিজে যাচাই করে)।

আমি কখনও ভাবিনি যে হাস্কেলের সাথে আমি 2 স্কোর পেতে পারি, এবং এখনও আমি এখানে আছি!

ফাংশনটি gক্রমবর্ধমান সমস্ত বর্ধমান সাবস্ট্রিংয়ের দৈর্ঘ্য গণনা করে। foldr1 max.gএই দৈর্ঘ্যের সর্বাধিক লাগে ( foldr1 maxসমান maximum, তবে কম স্কোর সহ)।

— Delfad0r
সূত্র

1

দেখে মনে হচ্ছে সাদা স্থানটি 1+a : bপ্রয়োজনীয় নয়, সুতরাং এটি 62 বাইট।

— সর্বাধিক ইয়েখলাভ

@ ম্যাক্সেখলকভ ঠিক বলেছেন, আমি জানি না যে আমি কীভাবে এটি মিস করেছি।

— ডেল্ডাড0

আপনার কোডটি 1খালি তালিকার জন্য ফিরে আসে , যেখানে এটি ফিরে আসা উচিত0

— জো কিং

@ জো কিং প্রকৃতপক্ষে, মন্তব্যগুলিতে আলোচনাটি আমি মিস করেছি। এখনই ঠিক করা।

— ডেল্ফ্যাড0

5

জাভাস্ক্রিপ্ট (নোড.জেএস) , স্কোর 3, 53 46 বাইট স্কোর 2, 51 50 বাইট

-7 বাইটস ধন্যবাদ @ আরনাউল্ড

-1 স্কোর বিনিময়ে +5 +4 স্পেস

a=> a.map($= p=n=>$=(p<=(p=n)?++ x:x=1)<$?$: x)&&$

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

ধরে নেই খালি খালি ইনপুট। খালি তালিকা হ'ল অবশ্যই 61 বাইট। স্কোর 2 এখনও।

a=> a.map($= p=n=>$=(p<=(p=n)?++ x:x=1)<$?$: x)&& a.length&&$

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

... বা 58 যদি ফেরার falseঅনুমতি দেওয়া হয়। স্কোর 2 এখনও।

a=> a.map($= p=n=>$=(p<=(p=n)?++ x:x=1)<$?$: x)&& a>[ ]&&$

— শিয়েরু আসাকোটো
সূত্র

এটি 46 বাইট এবং একই স্কোরের জন্য কাজ করা উচিত।

— আর্নৌল্ড

1

@ আর্নল্ড আপনার পরামর্শে 5 টি স্পেস যুক্ত করেছেন যাতে এটি এখন স্কোর 2

— শিয়েরু আসাকোটো

4

কান্ড , 5 বাইট , স্কোর = 2

00000000: bc6d 4cdc 14                   ▲mLġ≥

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

হুসের সাথে 2 এর চেয়ে কম স্কোর পাওয়ার সম্ভাবনা নেই কারণ ġ¹ এর সত্যই উচ্চতর কোডপয়েন্ট রয়েছে এবং সর্বাধিক দৈর্ঘ্য এবং দৈর্ঘ্য পেতে এর আগে কিছু হওয়া দরকার। একাধিক ফাংশন ব্যবহার করার চেষ্টা করে একটি প্রচেষ্টা করা যেতে পারে তবে \nএটি কোনও হেল্পার ফাংশনের আগেই ছিল যা সত্যই কম কোডপয়েন্ট রয়েছে তাই এটির পরে কমপক্ষে দৈর্ঘ্য 2 এর বর্ধমান বাইট-সিকোয়েন্স তৈরি হবে।

_{1: এটি মনে হয় তুলনা অপারেটরদের ↕( যেমন span) এর বিভিন্ন বিভাজন ফাংশনগুলি অনুসরণ করতে হবে তুলনা অপারেটরদের জন্য ব্যবহারের সর্বোত্তম উপায় ।}

ব্যাখ্যা

▲mLġ≥  -- example input: [1,1,2,1,1,4,5,3,2,1,1]
   ġ≥  -- group elements by geq: [[1,1,2],[1,1,4,5],[3],[2],[1,1]]
 mL    -- map length: [3,4,1,1,2]
▲      -- maximum: 4

— ბიმო
সূত্র

3

রেটিনা 0.8.2 , 40 বাইট, স্কোর 3

\d+
$*
(?<=(1+)),(?!\1)
¶
T`1`_
^O`
\G,?

এটি অনলাইন চেষ্টা করুন! লিঙ্কটি নিজেকে ইনপুট হিসাবে বাইট কোড হিসাবে অন্তর্ভুক্ত করে। ব্যাখ্যা:

\d+
$*

অ্যানারিতে রূপান্তর করুন।

(?<=(1+)),(?!\1)
¶

হ্রাসযুক্ত জোড়ায় বিভক্ত করুন।

T`1`_

অঙ্কগুলি মুছুন।

^O`

বিপরীত ক্রমে কমাগুলি বাছাই করুন। (আমি সাধারণত এটি লিখি O^তবে স্পষ্ট কারণেই এখানে এটি করতে পারি না))

\G,?

দীর্ঘতম কমা রান গণনা করুন এবং চূড়ান্ত নম্বর অন্তর্ভুক্ত করতে একটি যুক্ত করুন।

— নিল
সূত্র

3

জাপট `-h`, 6 বাইট, স্কোর 2

1 এর স্কোর সম্ভব বলে মনে করবেন না । স্ট্রিং এবং চরিত্রের অ্যারেগুলির সাথেও কাজ করা উচিত।

ò>¹mÊn

এটি ব্যবহার করে দেখুন - অন্তর্ভুক্ত পরীক্ষার কেস হ'ল সমাধানের চারকোড।

ব্যাখ্যা

ò          :Partition after each integer
 >         :  That's greater than the integer that follows it
  ¹        :End partition
   m       :Map
    Ê      :  Length
     n     :Sort
           :Implicitly output last element

— রোমশ
সূত্র

3

এমএটিএল , স্কোর 2, 13 বাইট

d0< ~Y'w)X>sQ

ইনপুট হতে পারে:

সংখ্যার একটি অ্যারে।
একক উদ্ধৃতি সহ একটি স্ট্রিং আবদ্ধ। স্ট্রিংয়ের মধ্যে একক উদ্ধৃতিগুলি সদৃশ হয়ে পালিয়ে যায়।

এমএটিএল এএসসিআইআই এনকোডিং ব্যবহার করে। উপরের কোডের কোডপয়েন্টগুলি হল

100, 48, 60, 32, 126, 89, 39, 119, 41, 88, 62, 115, 81

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

ব্যাখ্যা

d     % Implicit input. Consecutive differences (of code points) 
0<    % Less than 0? Element-wise. Gives true or false
      % Space. This does nothing; but it breaks an increasing substring
~     % Negate
Y'    % Run-length encoding. Gives array of true/false and array of lengths
w     % Swap
)     % Index. This keeps only lenghts of runs of true values
X>    % Maximum. Gives empty array if input is empty
s     % Sum. This turns empty array into 0
Q     % Add 1. Implicit display

— লুইস মেন্ডো
সূত্র

3

পাস্কাল (এফপিসি) , স্কোর 2

111 বাইট

var a,b,c,t:bYte;bEgIn repeat read(a); iNc(c); if a<b then c:=1; if c>t then t:= c;b:= a;until eOf;write(t)eNd.

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

ধরে নেই খালি খালি ইনপুট। নম্বরগুলি ফাঁকা দ্বারা পৃথক স্ট্যান্ডার্ড ইনপুট থেকে নেওয়া হয়।

— AlexRacer
সূত্র

2

জেলি , 8 বাইট , স্কোর 2

^{একরকম সম্ভবত স্কোর 1 সমাধান রয়েছে ...}

IṠµṣ-ZL‘

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

বাইট মানগুলির তালিকা হিসাবে উত্স কোড:

[73, 205, 9, 223, 45, 90, 76, 252]

কিভাবে?

IṠµṣ-ZL‘ - Link: list of integers  e.g. [ 1, 1, 2, 1, 1, 4, 5, 3, 2, 1, 1]
I        - increments                    [ 0, 1,-1, 0, 3, 1,-2,-1,-1, 0]
 Ṡ       - sign                          [ 0, 1,-1, 0, 1, 1,-1,-1,-1, 0]
  µ      - start a new monadic chain (a low byte to stop score being 3)
    -    - literal minus one             -1
   ṣ     - split at                      [[0, 1], [0, 1, 1], [], [], [0]]
     Z   - transpose                     [[0, 0, 0], [1, 1], 1]
      L  - length                        3
       ‘ - increment                     4

— জোনাথন অ্যালান
সূত্র

2

পার্ল 6 , স্কোর 2, 46 বাইট

{my&g=1+*×*;+max 0,|[\[&g]] [ |@_] Z>=0,|@_ }

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

খালি তালিকা পরিচালনা করে মূল কোডটি ছিল:

{my&g=1+*×*;+max 0,|[\[&g]] @_ Z>=0,|@_}

স্কোর হ্রাস করতে মাত্র 5 অতিরিক্ত বাইট।

সম্পাদনা: আহা, আমি কীভাবে অ্যাসাইনমেন্টটি সরিয়ে ফেলতে হবে তা বুঝতে পেরেছি , তবে তারপরে আমি এই স্কোরটি 3 এর নিচে পেতে পারি না )]]...

ব্যাখ্যা:

{                                  }  # Anonymous code block
 my&g=     ;  # Assign to &g an anonymous Whatever lambda
      1+*×*   # That multiplies the two inputs together and adds 1
                            @_ Z  0,|@_   # Zip the list with itself off-set by one
                                >=        # And check if each is equal or larger than the previous
                                         # e.g. [5,7,7,1] => [1,1,1,0]
                    [\[&g]]  # Triangular reduce it by the function declared earlier
                          # This results in a list of the longest substring at each index
                          # e.g. [5,7,7,1] => [1,2,3,1]
            +max 0,|      # And return the max value from this list, returning 0 if empty

— জো কিং
সূত্র

তাই [[&(*+*)]]কাজ করে [+]? আশ্চর্যজনক ...

— nwellnhof

@nwellnhof হ্যাঁ, মনে হচ্ছে আপনি (যে কোন হোয়াইটস্পেস থাকতে পারে না কয়েক আদেশ সহকারে এর সব সময়ে ), কিন্তু আপনি এমনকি সঙ্গে এটি ব্যবহার করতে পারেন Zএবং X। এটি অনলাইন চেষ্টা করুন!

— জো কিং

1

আমি এরকম কিছু চেষ্টা করতে যাচ্ছিলাম:{max 0,|.[[X..] ^$_ xx 2].map({+$_ if [<=] $_})}

— ব্র্যাড গিলবার্ট

1

05 এ বি 1 ই , স্কোর 3 (9 বাইট )

Œʒ¥dP}éθg

সম্ভবত কোনওভাবে 2 এর স্কোর হতে পারে।

প্রোগ্রাম- [140,1,90,100,80,125,233,9,103]বাইটসের কোড পয়েন্ট: (দৈর্ঘ্যের দুটি উপলিস্ট: [1,90,100]এবং [80,125,233])

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

ব্যাখ্যা:

Œ            # Sublists
 ʒ   }       # Filter by:
  ¥          #  Take the deltas
   d         #  Check for each whether the number is >= 0
    P        #  And check if it was truthy for all deltas
      é      # Then sort by length
       θ     # Take the last element
        g    # And take its length as result

— কেভিন ক্রুইজসেন
সূত্র

1

জাভা (জেডিকে) , স্কোর 3, 94 বাইট

a->{int m=0,p=0,x=0,i=0,n;while(i<a.length){n=a[i++];m=(p<=(p=n)?++x:(x=1)) <m?m:x;}return m;}

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

আমার পোর্ট (আর্নল্ডের পরামর্শ সহ) জেএস উত্তর। etuমধ্যে returnএবং hilমধ্যে whileএটিকে অসম্ভব স্কোর গল্ফ 2।

for এখানে ব্যবহার করা যাবে না কারণ:

;for আরোহী হয়
forল্যাম্বডা বডি (স্কোপ সীমাবদ্ধতা) এর শুরুতে ব্যবহার করা যাবে না। এটি দিয়ে মুড়িয়ে ফেলা সম্ভব {}তবে দৃশ্যত whileসেভ বাইটগুলি ব্যবহার করে।

— শিয়েরু আসাকোটো
সূত্র

আমি সম্ভবত \uকিছু জায়গায় ব্যবহার করার পরামর্শ দিচ্ছি , তবে তারপরে আপনাকে এমন 00একটি

— সংখ্যাটি

1

পাওয়ারশেল, স্কোর 3, 44 বাইট

($args|%{$i*=$_-ge$p;$p=$_;(++$i)}|sort)[-1]

পরীক্ষার স্ক্রিপ্ট:

$f = {

(
    $args|%{        # for each integer from argument list
        $i*=$_-ge$p # -ge means >=.
                    # This statement multiplies the $i by the comparison result.
                    # A result of a logical operator is 0 or 1.
                    # So, we continue to count a current sequence or start to count a new sequence
        $p=$_       # let $p stores a 'previous integer'
        (++$i)      # increment and return incremented as length of a current sequence
    }|sort          # sort lengthes 
)[-1]               # take last one (maximum)

}

@(
    ,(4, 1,1,2,1,1,4,5,3,2,1,1)
) | % {
    $e,$a = $_
    $r = &$f @a
    "$($r-eq$e): $r"
}

আউটপুট:

True: 4

ব্যাখ্যা:

স্ক্রিপ্টটি পূর্ণসংখ্যার যুক্তি তালিকার ( স্পাল্টটিং ) হিসাবে গ্রহণ করে ।
প্রতিটি ইন্টিজার মানচিত্রের একটি ক্রিয়াকলাপের মাধ্যমে লম্বা contiguous sub-list that is increasing (not strictly)। তারপরে স্ক্রিপ্টটি দৈর্ঘ্য বাছাই করে একটি সর্বশেষ (সর্বোচ্চ) নেবে (...|sort)[-1]।

পাওয়ারশেল 6, স্কোর 3, 43 বাইট

$args|%{$i*=$_-ge$p;$p=$_;(++$i)}|sort -b 1

উপরের মতই. একটি পার্থক্য: sort -b 1শর্টকাট হ'ল এর sort -Bottom 1অর্থ সাজানো অ্যারের শেষে 1 এলিমেন্ট । সুতরাং আমাদের সূচকের দরকার নেই [-1]।

— mazzy
সূত্র

1

স্ট্যাক্স , স্কোর 3 (15 বাইট)

Z|[F|]F:^!C_%|M

এটি চালান এবং এটি ডিবাগ করুন

— পুনরাবৃত্তি
সূত্র

1

পাইথন 2 , স্কোর 5, 87 বাইট স্কোর 2, 101 93 92 101 বাইট

lambda a,m=1,o=[1]:max(reduce(lambda B,c:[B[:-m]+[B[-m]+m],B+o][c[0]>c[m]],zip(a,a[m:]), o)) *(a>[ ])

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

ওপস! ভেবেছিলাম এই প্রথমবারের মাধ্যমে কোড-গল্ফ ...

— চ্যাস ব্রাউন
সূত্র

2

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

— mypetlion

2

ট্যাব সঙ্গে ইন্ডেন্ট 4. একটি স্কোর পেতে

— mypetlion

@ মাইপিটেশন: ডিওহ! ভেবেছিলাম এটি কোড গল্ফ ... এখনই আমার উত্তর সম্পাদনা করছে।

— চ্যাস ব্রাউন

মজার বিষয় হল যে আমরা স্কোর হ্রাস করে একবার অংশটি সরিয়ে ফেলতেm=1,o=[1] কোনও বাইট সংরক্ষণ করা শেষ হবে না

— জো কিং

@ জো কিং: চাকল! আমি আশা করেই রেখেছিলাম যে এইভাবে স্কুওয়ার করে আমি অন্য বাইটটি চিপ করতে পারি; তবে এরকম ভাগ্য নেই!

— চ্যাস ব্রাউন

1

ডায়ালগ এপিএল , 2, 20 বাইট স্কোর

{⍵≡⍬:0⋄⌈/≢¨⍵⊂⍨1,2>/⍵}

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

— Zachary
সূত্র

0

ওল্ফ্রাম ভাষা (গণিত) , স্কোর 3, 45 বাইট

Max[Length/@SequenceCases[#,x_/;OrderedQ@x]]&

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

SequenceCasesএবং OrderedQনিজেরাই একটি স্কোর 3 দেয়, যাতে স্ক্রিনটি উল্লেখযোগ্যভাবে পরিবর্তন না করে স্কোরটি উন্নত করা যায় না।

— মিশা লাভরভ
সূত্র

ব্যবহারের নিদর্শন করার সঠিক উপায় আমাদের কি হবে Max[Length/@SequenceCases[#,_?OrderedQ]]&, কিন্তু _?Or(হিসাবে দৈর্ঘ্য 4. বৃদ্ধি subsequence হয় _?AnyCamelCaseCommand।)

— মিশা লাভরভ

0

জাভা (জেডিকে), 126 বাইট, স্কোর 6

Golfed

private static int l(byte[] o){int m=0;int c=1;int p=0;for(byte i:o){if(m<c){m=c;}if(i>=p){p= i;c++;}else{c=1;p=0;}}return m;}

Ungolfed

private static int longest(byte[] input) {
    int maxc = 0;
    int consec = 1;
    int prev = 0;
    for (byte i : input) {
        if (maxc < consec) {
            maxc = consec;
        }
        if (i >= prev) {
            prev = i;
            consec++;
        }
        else {
            consec = 1;
            prev = 0;
        }
    }
    return maxc;
}

ইনপুট

[112, 114, 105, 118, 97, 116, 101, 32, 115, 116, 97, 116, 105, 99, 32, 105, 110, 116, 32, 108, 40, 98, 121, 116, 101, 91, 93, 32, 111, 41, 123, 105, 110, 116, 32, 109, 61, 48, 59, 105, 110, 116, 32, 99, 61, 49, 59, 105, 110, 116, 32, 112, 61, 48, 59, 102, 111, 114, 40, 98, 121, 116, 101, 32, 105, 58, 111, 41, 123, 105, 102, 40, 109, 60, 99, 41, 123, 109, 61, 99, 59, 125, 105, 102, 40, 105, 62, 61, 112, 41, 123, 112, 61, 32, 105, 59, 99, 43, 43, 59, 125, 101, 108, 115, 101, 123, 99, 61, 49, 59, 112, 61, 48, 59, 125, 125, 114, 101, 116, 117, 114, 110, 32, 109, 59, 125]

— জাদেন লি
সূত্র

না করা উচিত byteহবে int, যেহেতু byte8 বিট অবধি সীমিত করা হবে?

— জো কিং

@ জোকিং আপনার অর্থ কী তা আমি নিশ্চিত নই। আপনার মানে কি বাইট ক্লাসটি ইনট ক্লাসে পরিবর্তন করা উচিত?

— জাদেন লি

হ্যাঁ, যেহেতু ইনপুটটি পূর্ণসংখ্যার একটি তালিকা

— জো কিং

0

কোটলিন, স্কোর 6, 119 বাইট tes

 fun x(a : IntArray){var m=1;var k=0;var d=1;while(k<a.size-1){if(a[k]<=a[k+1])m++;else{if(d<m)d=m;m=1};k++};println(d)}

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

ব্যাখ্যা

পদক্ষেপ 1: পরবর্তী মানের আগের মানের জন্য পরীক্ষা করুন
পদক্ষেপ 2: পূর্ববর্তী মানটি কম বা সমান হলে শর্তটি সত্য হওয়ার সময় যোগ 1 যোগ করুন
পদক্ষেপ 3: পরবর্তী গণনা সহ পূর্ববর্তী গণনা পরীক্ষা করুন, ভেরিয়েবলের সর্বোচ্চ গণনা রাখুন d।

— সৈয়দ হামজা হাসান
সূত্র

ঠিক আছে, আমি এটি পেয়েছি, আমি শীঘ্রই এটি সম্পাদনা করব।

— সৈয়দ হামজা হাসান

দয়া করে চেক করুন, আমি একটি ফাংশন তৈরি করেছি যাতে ইনপুট দেওয়া যেতে পারে। আমার নমুনা স্ট্রিংয়ের উত্তর হিসাবে [2,4,5,6,7,7,7] স্কোর হয় 7

— সৈয়দ হামজা হাসান

আমি আপডেট স্কোর এবং লিঙ্ক আছে দয়া করে চেক।

— সৈয়দ হামজা হাসান

ঠিক আছে, আমি আপডেট দিয়েছি।

— সৈয়দ হামজা হাসান

আসুন আমরা এই আলোচনাটি আড্ডায় চলতে থাকি ।

— জো কিং

0

কোটলিন, স্কোর 4, 67 বাইট

{a:IntArray->var i=0;var p=0;a.map{if(it<p){i=0};p=it;(++i)}.max()}

মূল ধারণাটি হ'ল: প্রতিটি পূর্ণসংখ্যাকে সুসংগত সাব-সিকোয়েন্সগুলির দৈর্ঘ্যে রূপান্তর করুন যা বাড়ছে (কঠোরভাবে নয়)। সর্বাধিক ফিরে আসুন।

a.map{...} - অ্যারের মধ্যে প্রতিটি পূর্ণসংখ্যার জন্য
if(it<p){i=0} - যদি বর্তমান পূর্ণসংখ্যা কম হয় তবে পূর্বের পূর্ণসংখ্যা হয়, তারপরে কাউন্টারটি পুনরায় সেট করুন
p=it - পূর্বের বর্তমান পূর্ণসংখ্যা সংরক্ষণ করুন
(++i) - অভিব্যক্তিটির ইনক্রিমেন্ট কাউন্টার এবং রিটার্ন মান
.max() - সমস্ত দৈর্ঘ্যের সর্বোচ্চটি পান

— mazzy
সূত্র

0

রুবি , 64 বাইট

->e{e.size.downto(1).find{|l|e.each_cons(l).find{|c|c==c.sort}}}

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

— Idva
সূত্র

1

মনে রাখবেন এটি কোড-গল্ফ নয় । আপনার বর্তমান স্কোর হয় 6। এছাড়াও, আপনার কোড খালি তালিকা পরিচালনা করে না (যেখানে আউটপুট হওয়া উচিত 0)

— জো কিং

দীর্ঘতম বর্ধমান সাবস্ট্রিং

পাইথ , স্কোর 2 (8 বাইট)

কিভাবে?

হাস্কেল , স্কোর 2, 66 64 61 60 65 বাইট

জাভাস্ক্রিপ্ট (নোড.জেএস) , স্কোর 3, 53 46 বাইট স্কোর 2, 51 50 বাইট

কান্ড , 5 বাইট , স্কোর = 2

ব্যাখ্যা

রেটিনা 0.8.2 , 40 বাইট, স্কোর 3

জাপট -h, 6 বাইট, স্কোর 2

ব্যাখ্যা

এমএটিএল , স্কোর 2, 13 বাইট

ব্যাখ্যা

পাস্কাল (এফপিসি) , স্কোর 2

জেলি , 8 বাইট , স্কোর 2

কিভাবে?

পার্ল 6 , স্কোর 2, 46 বাইট

ব্যাখ্যা:

05 এ বি 1 ই , স্কোর 3 (9 বাইট )

জাভা (জেডিকে) , স্কোর 3, 94 বাইট

পাওয়ারশেল, স্কোর 3, 44 বাইট

পাওয়ারশেল 6, স্কোর 3, 43 বাইট

স্ট্যাক্স , স্কোর 3 (15 বাইট)

পাইথন 2 , স্কোর 5, 87 বাইট স্কোর 2, 101 93 92 101 বাইট

ডায়ালগ এপিএল , 2, 20 বাইট স্কোর

ওল্ফ্রাম ভাষা (গণিত) , স্কোর 3, 45 বাইট

জাভা (জেডিকে), 126 বাইট, স্কোর 6

কোটলিন, স্কোর 4, 67 বাইট

রুবি , 64 বাইট

জাপট `-h`, 6 বাইট, স্কোর 2