Friday Programming Quiz [modified]

[Shog9 0]

Christian Graus wrote:

Anna Kournikova is a cocktail ? Yummy.

Heh. It's a white russian, but with very little fat. Geddit? Eh? Eh? :rolleyes:

----

i hope you are feeling sleepy for people not calling you by the same.

--BarnaKol on abusive words

[Member 96]

Um...the output should be Anna Kournikova only. You can't make a Pina Colada without pineapple juice or coconut milk.

---

"110%" - it's the new 70%

[Michael Bergman]

Rama Krishna Vavilala wrote:

Given: 1. A list of cocktail recipes. Each recipe consists of ingredients . 2. A list of ingredients in stock The problem: Find all the cocktails in the list of cocktails that can be made using the ingredients in stock. Let's not consider the quantities in stock and assume that they are infinite. Example: Ingredients in stock: Vodka, Rum, 151 Rum, Beer, Amaretto, Kahlua, Skim Milk, Mint, Sugar Recipes: Anna Kournikova: Vodka, Kahlua, Skim Milk Flaming Dr Pepper: Beer, 151 Rum, Amaretto Pina Colada: Rum, Coconut Juice, Pineapple Juice Mint Julep: Mint, Bourbon, Sugar The output should be: Anna Kournikova, Pina Colada -- modified at 17:57 Friday 11th May, 2007 Use a language of your choice and Data Structures of your choice -- modified at 17:58 Friday 11th May, 2007

Given that there isn't any Coconut Juice or Pinapple Juice in stock, did you want an algorithm with a bug which adds them in (and removes the Beer, 151 Rum, and Amaretto)? Just curious.

m.bergman

-- For Bruce Schneier, quanta only have one state : afraid.

[Rama Krishna Vavilala]

OOPS: I corrected it.

[Michael Bergman]

You could make the Flaming Dr Pepper with the items in stock.

m.bergman

-- For Bruce Schneier, quanta only have one state : afraid.

[Michael Bergman]

Rama Krishna Vavilala wrote:

OOPS: I corrected it.

You are, indeed, faster than I. ;P

m.bergman

-- For Bruce Schneier, quanta only have one state : afraid.

[Rama Krishna Vavilala]

Sorry! It's corrected

[Josh Smith]

Rama Krishna Vavilala wrote:

Beer

Mmmmmmm....beer....friday night......brain go byebye.....beeeer

:josh: My WPF Blog[^] FYI - Bob is a scarecrow who keeps Chuck Norris away from CodeProject.

[David Stone]

Here's an oddball language. Prolog. We did a similar solution involving restaurants and meals in my programming languages class a few quarters ago. Here's the adaptation for this problem. (I'm half betting/half hoping that nobody will actually plug this into a prolog interpreter...as I didn't actually check any of it. ;P This should work though.)

item(Vodka).
item(Rum).
item(OneFiftyOneRum).
item(Beer).
item(Amaretto).
item(Kahlua).
item(SkimMilk).
item(Mint).
item(Sugar).
item(CoconutJuice).
item(PineappleJuice);
item(Bourbon).

drink(AnnaKournikova, [Vodka, Kahlua, SkimMilk]).
drink(FlamingDrPepper, [Beer, OneFiftyOneRum, Amaretto]).
drink(PinaColada, [Rum, CoconutJuice, PineappleJuice]).
drink(MintJulep, [Mint, Bourbon, Sugar]).

stock([Vodka, Rum, OneFiftyOneRum, Beer, Amaretto, Kahlua, SkimMilk, Mint, Sugar]).

% Determines if the Drink is made with the given Ingredients
canBeMade(Drink, Ingredients) :-
   drink(Drink, ActualIngredients),                          % Get the ingredients in the meal
   intersection(ActualIngredients, Ingredients, Intersect),  % Get the intersection of the actual ingredients with the specified ingredients
   ActualIngredients = Intersect.                            % Check that they're equal

% Print a list
print_list([]).
print_list([H|T]) :- print(H), print_list(T).

:- print_list(canBeMade(_, stock)).

---

Last modified: 28mins after originally posted --

We are certainly uncertain at least I'm pretty sure I am...

[PIEBALDconsult]

It should instruct the robot to go to the store.

[Chris Meech]

I started coding in C++ and drinking at the same time. This is not going to be pretty. :)

Chris Meech I am Canadian. [heard in a local bar]

[PIEBALDconsult]

Hmmm... now that I think of it, I think my Set class could be useful here. If the set R (recipe) is a subset of the set I (available ingredients) then we can make that drink. -- modified at 21:52 Friday 11th May, 2007

namespace Template
{
public partial class
Template
{
private static PIEBALD.Types.Set<string> I = new PIEBALD.Types.Set<string>
(
"Vodka"
,
"Rum"
,
"151 Rum"
,
"Beer"
,
"Amaretto"
,
"Kahlua"
,
"Skim Milk"
,
"Mint"
,
"Sugar"
) ;

    private static void
    CanMake
    (
        string                    Name
    ,
        PIEBALD.Types.Set<string> R
    )
    {
        System.Console.WriteLine
        (
            "You can{0} make a/n {1}"
        ,
            (R<=I)?"":"not"
        ,
            Name
        ) ;

        return ;
    }

    \[System.STAThreadAttribute\]
    public static int
    Main
    (
        string\[\] args
    )
    {
        try
        {
            I.EqualityComparer = System.StringComparer.CurrentCultureIgnoreCase ;

            CanMake
            (
                "Anna Kournikova"
            ,
                new PIEBALD.Types.Set<string>
                (
                    "Vodka"
                ,
                    "Kahlua"
                ,
                    "Skim Milk"
                )
            ) ;

            CanMake
            (
                "Flaming Dr Pepper"
            ,
                new PIEBALD.Types.Set<string>
                (
                    "Beer"
                , 
                    "151 Rum"
                ,    
                    "Amaretto"
                )
            ) ;


            CanMake
            (
                "Pina Colada"
            ,
                new PIEBALD.Types.Set<string>
                (
                    "Rum"
                ,   
                    "Coconut Juice"
                , 
                    "Pineapple Juice"
                )
            ) ;

[Rama Krishna Vavilala]

David Stone wrote:

oddball language. Prolog

Hey! That's my second favorite language. (First one being Scheme).

[Shog9 0]

Here's my entry: http://www.shog9.com/drinks/drinks.html [^] (Firefox only. Kinda works in Opera, IE throws away newlines, which kinda defeats the purpose of including a parser) The code is terrible, and i freely admit it; also, it doesn't quite work the way you described it... but i like how it works, so i just kinda went with it. As a bonus, it also has the proper ingredient list for a mint julep... :rolleyes: Now, if you'll excuse me, all this coding has made me thirsty...

----

i hope you are feeling sleepy for people not calling you by the same.

--BarnaKol on abusive words

[Sathesh Sakthivel]

Hey Shog, There is just a blank page. Seems you have coded in a drinking mood means there should be an error but nothing is there.

Regards, Satips.

[Shog9 0]

I didn't bother testing in IE... guess i'll have to give that wretched beast a look.

----

i hope you are feeling sleepy for people not calling you by the same.

--BarnaKol on abusive words

[Tomas Petricek]

Very nice quiz for functional languages :-). In F# it looks like this:

let drinks = [
("Anna Kournikova", ["Vodka"; "Kahlua"; "Skim Milk"]);
("Flaming Dr Pepper", ["Beer"; "151 Rum"; "Amaretto"]);
("Pina Colada", ["Rum"; "Coconut Juice"; "Pineapple Juice"]);
("Mint Julep", ["Mint"; "Bourbon"; "Sugar"])];;
let ingred =
["Vodka"; "Rum"; "151 Rum"; "Beer"; "Amaretto";
"Kahlua"; "Skim Milk"; "Mint"; "Sugar"];;

let ingset = Set.of_list ingred;;
drinks |> List.filter (fun (_, ing) -> ing |> Seq.for_all ingset.Contains )
|> List.map fst;;

Homepage: TomasP.net | Photo of the month: Calendar | C# and LINQ, F#, Phalanger: My Blog
Latest article: Phalanger, PHP for .NET: Introduction for .NET developers

[Tomas Petricek]

... or if you want just a one line version (excluding the data initialization), then it can be written like this:

drinks |> List.filter (snd >> Seq.for_all ingset.Contains) |> List.map fst

:rolleyes:

Homepage: TomasP.net | Photo of the month: Calendar | C# and LINQ, F#, Phalanger: My Blog
Latest article: Phalanger, PHP for .NET: Introduction for .NET developers

[Rama Krishna Vavilala]

I love it!

[Shog9 0]

Then something tells me you haven't looked at the code yet... ;P

----

i hope you are feeling sleepy for people not calling you by the same.

--BarnaKol on abusive words