55 lines
1.2 KiB
Plaintext
55 lines
1.2 KiB
Plaintext
all_cards = {
|
|
rooms = ['Library' 'Kitchen' 'Conservatory']
|
|
suspects = ['White' 'Green' 'Scarlett']
|
|
weapons = ['Rope' 'Lead_Pipe' 'Knife']
|
|
}
|
|
|
|
is_ready_to_solve <(map) -> bool> = fn |cards| {
|
|
((length cards:suspects) == 1)
|
|
&& ((length cards:rooms) == 1)
|
|
&& ((length cards:weapons) == 1)
|
|
}
|
|
|
|
take_turn <(map str str) -> map> = fn |cards opponent_card current_room| {
|
|
cards = (remove_card opponent_card cards)
|
|
cards = (make_guess current_room cards)
|
|
cards
|
|
}
|
|
|
|
remove_card <(map str) -> map> = fn |cards opponent_card| {
|
|
cards:rooms -= opponent_card
|
|
cards:suspects -= opponent_card
|
|
cards:weapons -= opponent_card
|
|
cards
|
|
}
|
|
|
|
make_guess <(map str)> = fn |cards current_room| {
|
|
if (is_ready_to_solve cards) {
|
|
(output 'It was '
|
|
+ cards:suspects:0
|
|
+ ' in the '
|
|
+ cards:rooms:0
|
|
+ ' with the '
|
|
+ cards:weapons:0
|
|
+ '!')
|
|
} else {
|
|
(output 'I accuse '
|
|
+ (random cards:suspects)
|
|
+ ' in the '
|
|
+ current_room
|
|
+ ' with the '
|
|
+ (random cards:weapons)
|
|
+ '.')
|
|
}
|
|
cards
|
|
}
|
|
|
|
all_cards
|
|
-> (take_turn 'Rope' 'Kitchen')
|
|
-> (take_turn 'Library' 'Kitchen')
|
|
-> (take_turn 'Conservatory' 'Kitchen')
|
|
-> (take_turn 'White' 'Kitchen')
|
|
-> (take_turn 'Green' 'Kitchen')
|
|
-> (take_turn 'Knife' 'Kitchen')
|
|
|