use hashes for lookups

1 files changed, 2 insertions, 3 deletions

diff --git a/bin/i3-fresh-workspace b/bin/i3-fresh-workspace
index 236551da..9e576fd0 100755
--- a/bin/i3-fresh-workspace
+++ b/bin/i3-fresh-workspace
@@ -12,15 +12,14 @@ my @all_workspaces = (
     "19:F9", "20:F10", "21:F11", "22:F12"
 );
 
-my @current_names = map $_->{name},
+my %current_names = map +($_->{name}, undef),
   @{ decode_json `i3-msg -t get_workspaces` };
 
 # filter @current_names out of @all_workspaces while preserving the
 # order of @all_workspaces
 my @free_workspaces;
 foreach my $workspace (@all_workspaces) {
-    push @free_workspaces, $workspace
-      unless grep /\A$workspace\z/, @current_names;
+    push @free_workspaces, $workspace unless exists $current_names{$workspace};
 }
 
 if (my $next_free_workspace = shift @free_workspaces) {