fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. #!/usr/bin/perl
  4. use strict;
  5. use warnings;
  6.  
  7. # Hash of Hashes for AI Startups
  8. my %aiStartups = (
  9.     "Anthropic" => {
  10.         year   => 2021,
  11.         owner  => "Dario Amodei",
  12.         leader => "Dario Amodei"
  13.     },
  14.     "Cohere" => {
  15.         year   => 2019,
  16.         owner  => "Aidan Gomez",
  17.         leader => "Aidan Gomez"
  18.     },
  19.     "Inflection" => {
  20.         year   => 2022,
  21.         owner  => "Mustafa Suleyman",
  22.         leader => "Mustafa Suleyman"
  23.     },
  24.     "Mistral" => {
  25.         year   => 2023,
  26.         owner  => "Arthur Mensch",
  27.         leader => "Arthur Mensch"
  28.     },
  29.     "OpenAI" => {
  30.         year   => 2015,
  31.         owner  => "Sam Altman",
  32.         leader => "Sam Altman"
  33.     },
  34. );
  35.  
  36. # Print sorted in ascending order
  37. print "My AI Startups - sorted by Team Name ascending:\n\n";
  38. print "Team           Year   Owner             Leader\n";
  39. foreach my $team (sort keys %aiStartups) {
  40.     printf "%-15s %-6s %-17s %s\n", 
  41.         $team, 
  42.         $aiStartups{$team}{year}, 
  43.         $aiStartups{$team}{owner}, 
  44.         $aiStartups{$team}{leader};
  45. }
  46.  
  47. # Print sorted in descending order
  48. print "\nMy AI Startups - sorted by Team Name descending:\n\n";
  49. print "Team           Year   Owner             Leader\n";
  50. foreach my $team (sort { $b cmp $a } keys %aiStartups) {
  51.     printf "%-15s %-6s %-17s %s\n", 
  52.         $team, 
  53.         $aiStartups{$team}{year}, 
  54.         $aiStartups{$team}{owner}, 
  55.         $aiStartups{$team}{leader};
  56. }
  57.  
  58. # Print HTML table
  59. print "\nHTML Page containing information on my Team:\n\n";
  60. print "<html>\n";
  61. print "<head>\n<title>AI Startups</title>\n</head>\n";
  62. print "<body>\n";
  63. print "<h1>AI Startup Teams</h1>\n";
  64. print "<table border='1' cellpadding='5'>\n";
  65. print "<tr><th>Team</th><th>Year</th><th>Owner</th><th>Leader</th></tr>\n";
  66. foreach my $team (sort keys %aiStartups) {
  67.     print "<tr><td>$team</td><td>$aiStartups{$team}{year}</td><td>$aiStartups{$team}{owner}</td><td>$aiStartups{$team}{leader}</td></tr>\n";
  68. }
  69. print "</table>\n";
  70. print "</body>\n";
  71. print "</html>\n";
  72.  
Success #stdin #stdout 0.01s 5320KB
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>AI Startups</title>
</head>
<body>
<h1>AI Startup Teams</h1>
<table border='1' cellpadding='5'>
<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/MX8YJN
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!