# Tag Info

161

GolfScript Dear Boss Man. It came to my attention that my keyboard needs replacement; the keys required to write the symbols ~ $` . and } are not functioning properly. It's very difficult to work like this! Please instruct the IT department to exchange the faulty keyboard as soon as possible. Sincerely, Dennis Try it online! ... 110 PHP Defines a function called item that will sort an array that you pass it. Dear Boss, I have successfully discovered all brackets. The ones marked with question marks are the ones which I am not sure about. The ones marked with asterisks can be used both as an opening and closing delimiter. ( ) { } [ ] >? <? /* '* "* Thank you for reading my memo. ... 70 Python 2 ''''''''''''''''''''''''''''''''''''''''''''' One of the phones in the office seems to be broken, so it needs to be fixed. '''''''''''''''''''' This memo was made while testing the functionality of its buttons since some of them didn't seem to work. '''''''' 1 (no alphabets) working with no problem '''''''' abc working with no problem ''''''''' ... 68 Python 2 ''' 5th of September 2014 Dear Boss, I am writing this Mail because i want to discuss the recent incident. I am Thankful that you did not fire me, and gave me a secretary position instead. I dont have any experience in being a sec retary and I am not very. good at writing mail, so please excuse ... 60 NetLogo To Manager [IT] Let Sue sort it; then show Sue the end to the end With indentation and capitalization changes, the code becomes clear(er). This defines a function called manager which takes a list as input and prints the list sorted. to manager [IT] let sue sort IT; then (semicolons introduce a comment) show sue the end to the end 59 C Input as space-separated list through STDIN, output as space-separated list through STDOUT. Dear Boss, I have made for you a decision about my employment a t your company. At about noon a letter explaining this shall be presented to you, as I am a lazy person. As you are a fool, I will say no more. And I look forward to never seeing you again. ... 57 Pyth, 10 bytes jb_.T.T_.z Try it online in the Pyth Compiler/Executor. Idea We can achieve the desired output by applying four simple transformations: Reverse the order of the lines: Golf Code & Puzzles Programming Transpose rows and columns: GC&PP oour ldzo fezg lr ea sm m i n g This top justifies, collapsing the original columns. Transpose ... 55 BrainF* (697 bytes) >>>>>>>>,[>,]<[[>>>+<<<-]>[<+>-]<+<]>[<<<<<<<<+>>>>>>>>-]<<<<<<<<[[>>+ >+>>+<<<<<-]>>[<<+>>-]<[>+>>+>>+<<<<<-]>[<+&... 49 GolfScript, 1 byte$ Yes, only 1 byte. Try it here.

42

APL, 9 bytes ⊢(/⍨)⊢=⌈\ This is a monadic function train with diagram: ┌─┼───┐ ⊢ ⍨ ┌─┼─┐ ┌─┘ ⊢ = \ / ┌─┘ ⌈ The non-train version is {⍵/⍨⍵=⌈\⍵} This basically checks if each element is equal to the running maximum. Note that Martin Büttner's J solution is the same length as this and was posted first.

41

Jelly, 19 bytes 11ị“bMAanlseovc”iµÞ This is a monadic link that takes a list as argument and sorts it. Try it online! Background Jelly uses modular, 1-based indexing. If we repeat the months names often enough to obtain 11 characters, we get the following array. J a n u a r y J a n u F e b r u a r y F e b M a r c h M a r c h M A p r i l A p r i l A M a ...

38

Haskell, 62 bytes import Data.List p=reverse;o=transpose f=unlines.p.o.o.p.lines I'm very mature.

38

Python, 53 bytes f=lambda n,i=1:n*[f]and[i]+f(n-1,2*i)+i%2*f(n-1,i-~i) Try it online! The recursive function generates the sorted list as a pre-order walk down this tree (example with n=4): 1 / \ 2 3 / / \ 4 6 7 / / / \ 8 12 14 15 1 2 4 8 3 6 12 7 14 15 Left branches double the value, and right branches do i->i*2+...

36

Pyth, 40 36 31 30 bytes Ju.|G^2slHxMf>FT.:Q2Z|tSIxRJQJ Try it online: Demonstration or Test Suite Each of the big test-cases finishes in a couple of seconds. Explanation: First I'll explain the method and why it works. I'll do this with the example list: [7, 2, 13, 9]. The first two numbers are already wrong (7 > 2). We want to xor with some ...

31

Imperative Tampio, 168 bytes Listan x on riippuen siitä,onko sen ensimmäisen alkion pituus suurempi tai yhtä suuri kuin sen jokaisen alkion pituus,joko sen ensimmäinen alkio tai sen hännän x. Online version Ungolfed: Listan pisin alkio on riippuen siitä, onko sen ensimmäisen alkion pituus suurempi tai yhtä suuri kuin sen jokaisen alkion pituus, joko ...

27

J (11) (\:+/"1@#:) This is a function that takes a list: (\:+/"1@#:) 15342 28943 16375 3944 11746 825 32425 28436 21826 15752 19944 16375 15342 32425 28943 11746 28436 19944 3944 15752 825 21826 If you want to give it a name, it costs one extra character: f=:\:+/"1@#: f 15342 28943 16375 3944 11746 825 32425 28436 21826 15752 19944 16375 ...

26

Japt, 5 3 bytes ñg9 Test it online! Explanation I, too, have added a sorting function to my language in the last few weeks :-) ñ takes in an array and a function and sorts the array as if each item had been mapped through that function. The g function on a string takes in a number n and returns the nth char in the string, wrapping if n is negative or ...

25

C (with x86), 61 bytes s[];main(){qsort(s,read(0,s,99),1,"YXZQQQ\x8a\x00*\x02\x0f\xbe\xc0\xc3");puts(s);} That string contains raw bytes, not actual \x.. codes, and it's a raw machine code callback passed to qsort. Works on x86 only: 59 pop ecx 58 pop eax 5a pop edx 51 push ecx 51 push ecx 51 push ...

24

Python 2 & 3 Unfortunately, the employees of today just can't stop using hashtags all over the place... #WritingALetter #Business Dear Boss, #SecondLine I found this scrap of paper on the floor. It said " def sortl(l): # define a function return sorted(l) # returns the list, sorted " #ScrapOfPaper Just thought I should let you ...

23

05AB1E, 2 bytes Code: œß Same algorithm as the Jelly answer. Computes all permutations of the input and pops out the smallest one. Try it online! A more efficient method is: E[ß,Ž Performs selection sort. Uses CP-1252 encoding. Try it online!

23

Jelly, 1 byte Z Try it online! The “transpose” built-in will do exactly this to a list of strings.

23

Python 2, 58 54 bytes lambda x:sorted(x,key=lambda y,B10=0:eval(y[1:]+'10')) Try it online! How it works y y[1:]+'10' eval(y[1:]+'10') ======================================= VB B10 0 (a variable we defined) V0 010 8 (an octal literal) V0+ 0+10 10 V1 110 110 V2 210 ...

23

Haskell, 67 59 58 bytes (q:r)!x|x<last q=q:r!x|1<2=(q++[x]):r _!x=[[x]] foldl(!)[] Explanation: Given a list of lists (that are already sorted) and a value x, the ! operator will place x at the end of the first list whose last element is less than or equal to x. If no such list exists, the list [x] is placed at the end. Try it online.

23

JavaScript (ES6), 26 bytes 1-indexed. a=>a.map(o=x=>o[x]=-~o[x]) Try it online! Commented a => // a[] = input array a.map(o = // assign the callback function of map() to the variable o, so that // we have an object that can be used to store the counters x => // for each value x in a[...

21

J, 10 9 bytes #~(=>./\) Working version of my CJam idea (in fewer bytes). E.g.: f =: #~(=>./\) f 10 10 10 9 10 10 10 10 10 f 1 2 5 4 3 7 1 2 5 7 Explanation First, we get the maximum of each prefix, with: >./\ (Here, >. is the maximum operator, / folds that operator onto a list, and \ gets all the prefixes of the input.) Then ...

21

APL, 2 bytes ⍋⍋ The “grade up” built-in, applied twice. Works if indexing starts at 0, which isn’t the default for all flavors of APL. Try it here! Why does this work? ⍋x returns a list of indices that would stably sort x. For example: x ← 4 4 0 1 1 2 0 1 ⍋x 2 6 3 4 7 5 0 1 because if you take element 2, then 6, then 3… you get a stably sorted ...

21

Python 3, 40 39 bytes 1 byte thanks to Jonathan Allan. lambda s:sorted(s,key="145926870".find) Try it online!

20

Python, 113 P=[] for n in sorted(input())[::-1]: for p in P: if p[-1][1]>=n[1]:p+=[n];break else:P+=[[n]] print sum(P,[]) After sorting the list of books in descending order (by width first and then height), this partitions the books into piles without overlaps. To determine where to place each book, its height is compared with the height of the top ...

20

Stuck, 4 bytes sc\$d This language was documented on the wiki just yesterday! Mmm, fresh esolangs.

20

Python, 23 bytes lambda a:max(a,key=len) Try it online!

Only top voted, non community-wiki answers of a minimum length are eligible