Santa's Decision

Question

Santa's Decision:

In this challenge, you will help Santa Claus decide whether somebody on their list has been naughty or nice, and subsequently get coal or toys.

But unfortunately, Santa is unorganised, in some of his entries, the naughty, nice and name fields are in the wrong order.

Input

Input will come in the following, interchangeable format:

the person's name (cannot contain a colon, only a-zA-Z0-9)
the word naughty followed directly by a colon and an non-negative integer representing the amount of times Santa caught you being naughty
the word nice followed directly by a colon and an non-negative integer representing the amount of times Santa caught you being nice

All separated with a single whitespace (ASCII 32) between each of them.

Additionally, the name will have no whitespace between the parts of the name Santa Claus -> SantaClaus.

Bonus:

(25%): He is Santa Claus, so he needs to check the list twice, and make sure there are no duplicates. (In which case, it just gets the first scores that user has)

Example:

Quill naughty:4 nice:0
naughty:0 Doorknob nice:3
naughty:2 Quill nice:6
nice:3 balpha naughty:3
pops nice:4 naughty:2

Output:

The output should consist of:

The name of the person followed by:

If there's more points in naughty, then coal:
If there's more points in nice, then toys.
But if naughty and nice are equal, then needs more data

Example output:
With organisation bonus and duplicate removal bonus:

Quill coal
Doorknob toys
balpha needs more data
pops toys

Without bonus:

Quill coal
Doorknob toys
Quill toys
balpha needs more data
pops toys

Lowest byte count wins!

There's also a typo in the test cases. You misspelled our glorious mod DorkNoob's name :^) — FryAmTheEggman, Dec 17, 2015 at 23:37

Alex A. · Accepted Answer · 2015-12-18 00:00:59Z

Julia, 176 169 bytes

s->for l=split(s,"\n") M(r)=parse(matchall(r,l)[1]);g=M(r"e:\K\d+");b=M(r"y:\K\d+");println(replace(l,r" *\w+:\d+ *","")," ",g>b?"toys":b>g?"coal":"needs more data")end

This is an anonymous function that accepts a string and prints the result to STDOUT. To call it, give it a name, e.g. f=s->....

Ungolfed:

function santa(s::AbstractString)
    # Split the input on newlines and process each line separately
    for l in split(s, "\n")
        # Define a function to get the number from the result of a
        # regular expression match
        M(r) = parse(matchall(r, l)[1])

        # Goodness
        g = M(r"e:\K\d+")

        # Badness
        b = M(r"y:\K\d+")

        # Get the name by replacing the naughty and nice specifications
        # with empty strings and print the line to STDOUT
        println(replace(l, r" *\w+:\d+ *", ""), " ",
                g > b ? "toys" : b > g ? "coal" : "needs more data")
    end
end

Jakube · Accepted Answer · 2015-12-19 16:09:48Z

4

Pyth, 68 bytes - 25% = 51

V.zI-hA.g}\:kcNdY=+YGjd+G@c"needs more data
coal
toys"b._-Fmsecd\:SH

Try it online: Demonstration

answered Dec 19, 2015 at 16:09

Jakube

21.9k3 gold badges26 silver badges108 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

4

Pyth - 64 bytes

Will try to use packed strings.

jmj\ +hK.g@k\:cd\ @c"needs more data
coal
toys"b._-Fmseck\:SeK.z

Try it online here.

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Dec 18, 2015 at 2:14

Maltysen

25.7k4 gold badges54 silver badges127 bronze badges

\$\begingroup\$ This language is sufficiently advanced technology. \$\endgroup\$
– Rob Grant
Dec 19, 2015 at 12:19

Add a comment |

Vasu Adari · Accepted Answer · 2015-12-19 19:53:33Z

Ruby, 144 123 155 * .75 = 116.25 bytes

->s{d={}
s.split("
").map{|l|
a=l.split
b=a.grep /:/
i,j,v=(b.sort*'').scan(/\d+/)+a-b
d[v]||(d[v]=0
puts v+' '+['needs more data','coal','toys'][i<=>j])}}

Thanks to histocrat for suggesting grep method.

164 * .75 = 123 bytes

->s{d={}
s.split("
").map{|l|
a=l.split
b=a.select{|t|t[?:]}
i,j,v=(b.sort*'').scan(/\d+/)+a-b
d[v]||(d[v]=0
puts v+' '+['needs more data','coal','toys'][i<=>j])}}

144 bytes

->s{puts s.split("
").map{|l|b=(a=l.split).select{|t|t[?:]};i,j=(b.sort*'').scan(/\d+/);(a-b)[0]+' '+['needs more data','coal','toys'][i<=>j]}}

Ungolfed

->s{
  d={}
  s.split("
  ").map{ |l|
    a = l.split
    b = a.grep /:/
    i, j, v = (b.sort * '').scan(/\d+/) + a-b
    d[v] ||
      (d[v]=0
       puts v + ' ' + ['needs more data','coal','toys'][i<=>j]
      )
  }
}

Usage:

# Assign the anonymous function to a variable
f = ->s{d={}
s.split("
").map{|l|
a=l.split
b=a.grep /:/
i,j,v=(b.sort*'').scan(/\d+/)+a-b
d[v]||(d[v]=0
puts v+' '+['needs more data','coal','toys'][i<=>j])}}

f["Quill naughty:4 nice:0
naughty:0 Doorknob nice:3
naughty:2 Quill nice:6
nice:3 balpha naughty:3
pops nice:4 naughty:2"]

Quill coal
Doorknob toys
balpha needs more data
pops toys

\$\begingroup\$ .select{|t|t[?:]} can be golfed to .grep(/:/) \$\endgroup\$
– histocrat
Dec 19, 2015 at 19:18 — histocrat, Dec 19, 2015 at 19:18
\$\begingroup\$ @histocrat Wow i totally forgot that method. Thank you :) \$\endgroup\$
– Vasu Adari
Dec 19, 2015 at 19:46 — Vasu Adari, Dec 19, 2015 at 19:46

Kenney · Accepted Answer · 2015-12-20 23:02:24Z

Perl, 138 113 105 103 102 96 - 25% = 72

includes +1 for -p

s/ *\w*(.):(\d+) */$$1=$2,()/eg;$$_++?$_='':s/\n/$".('needs more data',toys,coal)[$e<=>$y].$&/e

Less golfed:

s/ *\w*(.):(\d+) */$$1=$2,()/eg;    # strip naughty/nice, set $a to naughty, $i to nice
                                    # $_ is now the input name followed by \n
$$_++ ? $_='' :                     # only output once per name
s/\n/                               # replace newlines with:
  $".                               # a space,
  ('needs more data',toys,coal)     # one of these strings,
  [$e<=>$y]                         # indexed by -1, 0 or 1
  .$&                               # and the matched newline.
/ex                                 # (/x only for legibility)

update 113
- save 25 bytes by using 1 letter from nice or naughty as variable name;
- loose 5 bytes by fixing bug when name is last
update 105 save 8 bytes by using <=> to index a list of output strings.
update 103 save 2 bytes by using regex to append output string
update 102 save 1 byte by using last letter of nice or naughty instead of 2nd.
update 96 save 6 bytes by changing $$_ ? ... : ($$_++, ...) into $$_++ ? ... : ...
(why didn't I see that before).

user81655 · Accepted Answer · 2015-12-18 00:25:22Z

JavaScript (ES6), 174 bytes - 25% bonus = 130.5 score

s=>s.split`
`.map(l=>l.split` `.map(p=>(m=p.match(/\w:\d+/))?(n=+m[0].slice(2),m>"f")?b=n:c=n:a=p)&&d[a]?"":d[a]=a+" "+(b>c?`coal
`:b<c?`toys
`:`needs more data
`),d={}).join``

Explanation

s=>
  s.split`
`.map(l=>                   // for each line l of Santa's list
    l.split` `.map(p=>      // for each word p in l
      (m=p.match(/\w:\d+/)) // m = "y:x" for naughty, "e:x" for nice or null for name
        ?(n=+m[0].slice(2), // n = number at end of match
          m>"f")?b=n:c=n    // if naughty matched b = n, if nice matched c = n
        :a=p                // if no match, a = name
    )
    &&d[a]?"":              // if the name has been used before, add nothing to output
    d[a]=                   // else set d[name] to true

      // Add the appropriate text to the output
      a+" "+(b>c?`coal
`:b<c?`toys
`:`needs more data
`),

    // NOTE: This line is executed BEFORE the code above it in the map function...
    d={}                    // d = list of names that have been output
  )
  .join``                   // return the list of outputs as a string

Test

var solution = s=>s.split`
`.map(l=>l.split` `.map(p=>(m=p.match(/\w:\d+/))?(n=+m[0].slice(2),m>"f")?b=n:c=n:a=p)&&d[a]?"":d[a]=a+" "+(b>c?`coal
`:b<c?`toys
`:`needs more data
`),d={}).join``

<textarea rows="5" cols="40" id="input">Quill naughty:4 nice:0
naughty:0 Doorknob nice:3
naughty:2 Quill nice:6
nice:3 balpha naughty:3
pops nice:4 naughty:2</textarea><br />
<button onclick="result.textContent=solution(input.value)">Go</button>
<pre id="result"></pre>

Dennis · Accepted Answer · 2015-12-18 02:15:26Z

2

CJam, 64 bytes

qN/{S/':f/_{,1=},_@^$1f=:~:-g"needs more data
coal
toys"N/=S\N}/

Try it online!

edited Dec 18, 2015 at 2:15

answered Dec 18, 2015 at 2:03

Dennis

210k41 gold badges368 silver badges819 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

2

Lua, 329 Bytes - 25% bonus = 246.75

a={...}p={}u=" "k=ipairs for i=1,#a/3 do p[i]={}end for i,v in k(a)do p[math.floor((i+2)/3)][(v:find("y:")and 3)or(v:find("e:")and 2)or 1]=v:gsub("%a+%:","")end for i,v in k(p)do d=tonumber b,g,n=d(v[3]),d(v[2]),v[1]if(not u:find(" "..n.." "))then u=u..n.." "print(n..(g<b and" coal"or g>b and" toys"or" needs more data"))end end

Will edit in ungolfed version and explanations later, a bit tired at the moment. All input is taken in through command line, space separated.

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Dec 18, 2015 at 2:55

Cyv

2111 silver badge4 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

2

Python 2, 206 bytes - 25% = 154.5

s=[]
x=[0,0]
for p in zip(*(iter(input().split()),)*3):
 for w in p:
  j=w.find(':')+1
  if j:x[j<6]=int(w[j:])
  else:N=w
 b,g=x
 if N not in s:print N,['needs more data','coal','toys'][(b>g)-(g>b)];s+=[N]

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Dec 18, 2015 at 12:48

TFeld

19.8k3 gold badges19 silver badges63 bronze badges

Add a comment |

edc65 · Accepted Answer · 2015-12-19 17:35:39Z

2

JavaScript (ES6) 120 (160-25%)

Anonymous function using template strings, there are 4 newlines that are significant and included in the byte count

l=>l.split`
`.map(r=>k[r=r.replace(/\S+:(\d+)/g,(a,c)=>(t-=a[1]<'i'?c:-c,''),t=0).trim()]?'':k[r]=r+(t>0?` toys
`:t<0?` coal
`:` needs more data
`),k={}).join``

answered Dec 19, 2015 at 17:35

edc65

32k3 gold badges34 silver badges89 bronze badges

Add a comment |

Stack Exchange Network

Santa's Decision

Santa's Decision:

Input

Bonus:

Example:

Output:

Example output:

Lowest byte count wins!

10 Answers 10

Julia, 176 169 bytes

Pyth, 68 bytes - 25% = 51

Pyth - 64 bytes

Ruby, 144 123 155 * .75 = 116.25 bytes

Perl, 138 113 105 103 102 96 - 25% = 72

Less golfed:

JavaScript (ES6), 174 bytes - 25% bonus = 130.5 score

Explanation

Test

CJam, 64 bytes

Lua, 329 Bytes - 25% bonus = 246.75

Python 2, 206 bytes - 25% = 154.5

JavaScript (ES6) 120 (160-25%)

Your Answer

Not the answer you're looking for? Browse other questions tagged
code-golf
string
parsing
or ask your own question.

Hot Network Questions

Santa's Decision

Santa's Decision:

Input

Bonus:

Example:

Output:

Example output:

Lowest byte count wins!

10 Answers 10

Julia, 176 169 bytes

Pyth, 68 bytes - 25% = 51

Pyth - 64 bytes

Ruby, 144 123 155 * .75 = 116.25 bytes

Perl, 138 113 105 103 102 96 - 25% = 72

Less golfed:

JavaScript (ES6), 174 bytes - 25% bonus = 130.5 score

Explanation

Test

CJam, 64 bytes

Lua, 329 Bytes - 25% bonus = 246.75

Python 2, 206 bytes - 25% = 154.5

JavaScript (ES6) 120 (160-25%)

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golfstringparsing or ask your own question.

Related

Hot Network Questions

Not the answer you're looking for? Browse other questions tagged
code-golf
string
parsing
or ask your own question.