🏌 ⛳

Not specifically answering your question, but you seem to have become addicted to the competitive aspect of code golf. Though currently retired, I've experienced first-hand how addictive it can become, how you find yourself shaking your fist in fury at someone you don't know, from the other side of the world, who just had the temerity to pass you on the code golf leaderboard! :)

BTW, tybalt89, who answered your post with the 44 character solution, is mentioned in some of the links below and is one of the all-time golfing greats, and yes he is on the other side of the world to me, and yes he used to regularly pass me on the Perl golf leaderboard ... though I didn't shake my fist in fury at him because I knew how good he was and expected it; I shook my fist most often at `/anick, who I expected to beat, but sometimes didn't.

If you are eager to improve your golfing skills (as opposed to getting others to solve the problem for you) you could learn from the vast amount of prior art in code golf, for example by reading and understanding the many solutions described in the code golf nodes below:

• The Lighter Side of Perl Culture (Part IV): Golf

• The golf course looks great, my swing feels good, I like my chances (Part I)
• The golf course looks great, my swing feels good, I like my chances (Part II)
• The golf course looks great, my swing feels good, I like my chances (Part III)
• The golf course looks great, my swing feels good, I like my chances (Part IV)
• The golf course looks great, my swing feels good, I like my chances (Part V)
• The golf course looks great, my swing feels good, I like my chances (Part VI)

• Spending Time on Saving Time [golf]
• Drunk on golf: 99 Bottles of Beer
• Re: too much free time (99 Bottles of Beer)

• Compression in Golf: Part I
• Compression in Golf: Part II
• Compression in Golf: Part III

• The 10**21 Problem (Part I)
• The 10**21 Problem (Part 2)
• The 10**21 Problem (Part 3)
• The 10**21 Problem (Part 4)

• Dueling Flamingos: The Story of the Fonality Christmas Golf Challenge
• Golf: Magic Formula for Roman Numerals
• When One Golfer Speculates On What Another Is Doing...

• Re^2: Golf: Length of longest line in a file
• Re^3: Counting positive numbers
• Re: pi and some continued fractions
• Re^2: Mini-Tutorial: Working with Odd/Even Elements
• Re: Golf: Sudoku solving
• Re^3: Perl Golf Ethics
• Re: Rot13 Challenge
• Re^3: Golf: Count unique words
• Golf: ROT-n
• Golf: Fix de facto HTML comments
• Competition fuels obsession over Perl
• Friday Golf: All 2-digit combinations
• Pascal-Sierpinski for golfers
• Diamonds for fun
• Golf for unique digits
• Homework Golf
• Using the olde times internet
• Golf Challenge: FizzBuzz
• Golf: Factorials
• 12 days of Perl?
• Golf code in perl

• The Decline and Fall of the Roman Empire by grinder (2005) - Roman Numeral obfu (see especially ambrus reply)
• (Golf) Let's go bowling by virtualsue (2001) - many replies

• new code.golf site
• old shinh golf site

Some Perl Monk Golfers

• primo
• thospel
• tybalt89
• mtve
• pijll
• Jasper

• ambrus
• o0lit3
• robin
• Sec
• TedYoung
• thelenm
• Util

• cog
• dewey
• huck
• polettix
• rinceWind
• shmem
• tt08
• ysth

Applying a few standard golf tricks...

<>=~$";$\+=2*$s[$_%$']++for split$",<>;print
[download]

44, pad as required :)

So cool!Thank u

As far as I can tell this question was cross-posted to StackExchange*, where the source of this problem was cited as HackerEarth. Cross-posting is considered acceptable as long as you inform readers, so that efforts are not duplicated.

Update: * The link above has now gone dead. The one posted in a reply below is currently still good: http://stackoverflow.com/questions/42733000/code-golf-in-perl

Yes i have posted the question first on stackoverflow and they suggested me perlmonks would help you.Can you please help me?

Yes i have posted the question first on stackoverflow and they suggested me perlmonks would help you.

Could you provide a link? At the link I posted above there is no such reference to PerlMonks.

Can you please help me?

Well, first of all, it seems the code you posted doesn't work, as opposed to what was posted on StackExchange, so I'll look at the latter.

$ cat input.txt 
5 5
6 11 16 7 12 
$ perl -e '@j=split$",<>;print$% map$%+=2*$q[$_%@j[1]]++,split$",<>' i
+nput.txt 
$ perl -e '@j=split$",<>;map$r+=2*$a[$_%@j[1]]++,split$",<>;print$r' i
+nput.txt 
8
[download]

I take it you're not allowed any switches like e.g. -F? Anyway, here's one idea:

$ perl -e '<>=~/\d+$/;map$r+=2*$a[$_%$&]++,split$",<>;print$r' input.t
+xt
8
[download]

Update: That's 50 chars... what do I win? ;-) Update 2: tybalt89 shows how it's done, very nice :-)

”I am new to perl and somehow I wrote the code in perl."

I think it's disingenuous to claim you wrote this code. The idea behind such challenges which you've copied/paste here is that the participant exercise their skills.and try out new tricks. Since you claim to be new to perl I suggest your time would be better spent learning the basics, rather than keep asking people to improve someone else's answer (inbox spam isn't a wise course of action by the way), http://learn.perl.org, learn perl in 2 hours 30 minutes. Work through the tutorials section of this site. Ask specific questions (How do I post a question effectively?), rather than repeat "do it for me" type requests.

I am new to perl and somehow I wrote the code in perl.

You would be the first perl beginner of all time to concoct such a piece of code. If you did.

m? ?||map$\+=2*$s[$_%$']++,split for<>;print

In older perls you could leave out the initial m and it would have been 43

And for 40:

print<>!~($/=$")+2*map 1..$s{$_%$'}++,<>