fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. #!/usr/bin/perl
  4. use strict;
  5. use warnings;
  6.  
  7. # Define the hash of hashes
  8. my %ai_startups = (
  9.     "Anthropic" => {
  10.         year   => 2021,
  11.         owner  => "Dario Amodei",
  12.         leader => "Dario Amodei"
  13.     },
  14.     "OpenAI" => {
  15.         year   => 2015,
  16.         owner  => "Sam Altman",
  17.         leader => "Sam Altman"
  18.     },
  19.     "Mistral" => {
  20.         year   => 2023,
  21.         owner  => "Arthur Mensch",
  22.         leader => "Arthur Mensch"
  23.     },
  24.     "Inflection" => {
  25.         year   => 2022,
  26.         owner  => "Mustafa Suleyman",
  27.         leader => "Mustafa Suleyman"
  28.     },
  29.     "Cohere" => {
  30.         year   => 2019,
  31.         owner  => "Aidan Gomez",
  32.         leader => "Aidan Gomez"
  33.     }
  34. );
  35.  
  36. # Function to print the header and values with alignment
  37. sub print_table {
  38.     my @keys = @_;
  39.     printf "%-12s %-6s %-20s %-20s\n", "Team", "Year", "Owner", "Leader";
  40.     foreach my $team (@keys) {
  41.         printf "%-12s %-6s %-20s %-20s\n", $team, 
  42.             $ai_startups{$team}{year}, 
  43.             $ai_startups{$team}{owner}, 
  44.             $ai_startups{$team}{leader};
  45.     }
  46. }
  47.  
  48. # Ascending order report
  49. print "My AI Startups - sorted by Team Name ascending:\n\n";
  50. print_table(sort keys %ai_startups);
  51.  
  52. # Descending order report
  53. print "\nMy AI Startups - sorted by Team Name descending:\n\n";
  54. print_table(reverse sort keys %ai_startups);
  55.  
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
My AI Startups - sorted by Team Name ascending:

Team         Year   Owner                Leader              
Anthropic    2021   Dario Amodei         Dario Amodei        
Cohere       2019   Aidan Gomez          Aidan Gomez         
Inflection   2022   Mustafa Suleyman     Mustafa Suleyman    
Mistral      2023   Arthur Mensch        Arthur Mensch       
OpenAI       2015   Sam Altman           Sam Altman          

My AI Startups - sorted by Team Name descending:

Team         Year   Owner                Leader              
OpenAI       2015   Sam Altman           Sam Altman          
Mistral      2023   Arthur Mensch        Arthur Mensch       
Inflection   2022   Mustafa Suleyman     Mustafa Suleyman    
Cohere       2019   Aidan Gomez          Aidan Gomez         
Anthropic    2021   Dario Amodei         Dario Amodei
https://ideone.com/90bqG3
language:
Perl (perl 5.28.1)
created:
17 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!