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. # Ascending order report
  37. print "My AI Startups - sorted by Team Name ascending:\n\n";
  38. print "Team\t\tYear\tOwner\t\t\tLeader\n";
  39. foreach my $team (sort keys %ai_startups) {
  40.     print "$team\t$ai_startups{$team}{year}\t$ai_startups{$team}{owner}\t$ai_startups{$team}{leader}\n";
  41. }
  42.  
  43. # Descending order report
  44. print "\nMy AI Startups - sorted by Team Name descending:\n\n";
  45. print "Team\t\tYear\tOwner\t\t\tLeader\n";
  46. foreach my $team (reverse sort keys %ai_startups) {
  47.     print "$team\t$ai_startups{$team}{year}\t$ai_startups{$team}{owner}\t$ai_startups{$team}{leader}\n";
  48. }
  49.  
  50. # HTML Table output
  51. print "\nHTML Page containing information on my Team:\n\n";
  52. print "<html>\n";
  53. print "<head><title>My AI Startups</title></head>\n";
  54. print "<body>\n";
  55. print "<h1>AI Startup Teams</h1>\n";
  56. print "<table border=1>\n";
  57. print "<tr><th>Team</th><th>Year</th><th>Owner</th><th>Leader</th></tr>\n";
  58. foreach my $team (sort keys %ai_startups) {
  59.     print "<tr><td>$team</td><td>$ai_startups{$team}{year}</td><td>$ai_startups{$team}{owner}</td><td>$ai_startups{$team}{leader}</td></tr>\n";
  60. }
  61. print "</table>\n</body>\n</html>\n";
  62.  
Success #stdin #stdout 0.01s 5376KB
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

HTML Page containing information on my Team:

<html>
<head><title>My AI Startups</title></head>
<body>
<h1>AI Startup Teams</h1>
<table border=1>
<tr><th>Team</th><th>Year</th><th>Owner</th><th>Leader</th></tr>
<tr><td>Anthropic</td><td>2021</td><td>Dario Amodei</td><td>Dario Amodei</td></tr>
<tr><td>Cohere</td><td>2019</td><td>Aidan Gomez</td><td>Aidan Gomez</td></tr>
<tr><td>Inflection</td><td>2022</td><td>Mustafa Suleyman</td><td>Mustafa Suleyman</td></tr>
<tr><td>Mistral</td><td>2023</td><td>Arthur Mensch</td><td>Arthur Mensch</td></tr>
<tr><td>OpenAI</td><td>2015</td><td>Sam Altman</td><td>Sam Altman</td></tr>
</table>
</body>
</html>
https://ideone.com/Db2GGM
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!