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.         funding  => "7B",
  14.         hq       => "San Francisco"
  15.     },
  16.     "Cohere" => {
  17.         year     => 2019,
  18.         owner    => "Aidan Gomez",
  19.         leader   => "Aidan Gomez",
  20.         funding  => "445M",
  21.         hq       => "Toronto"
  22.     },
  23.     "Inflection" => {
  24.         year     => 2022,
  25.         owner    => "Mustafa Suleyman",
  26.         leader   => "Mustafa Suleyman",
  27.         funding  => "1.3B",
  28.         hq       => "Palo Alto"
  29.     },
  30.     "Mistral" => {
  31.         year     => 2023,
  32.         owner    => "Arthur Mensch",
  33.         leader   => "Arthur Mensch",
  34.         funding  => "415M",
  35.         hq       => "Paris"
  36.     },
  37.     "OpenAI" => {
  38.         year     => 2015,
  39.         owner    => "Sam Altman",
  40.         leader   => "Sam Altman",
  41.         funding  => "13B",
  42.         hq       => "San Francisco"
  43.     },
  44. );
  45.  
  46. # Print sorted in ascending order
  47. print "My AI Startups - sorted by Team Name ascending:\n\n";
  48. print "Team           Year   Owner             Leader            Funding  HQ\n";
  49. foreach my $team (sort keys %aiStartups) {
  50.     printf "%-15s %-6s %-17s %-17s %-8s %s\n", 
  51.         $team, 
  52.         $aiStartups{$team}{year}, 
  53.         $aiStartups{$team}{owner}, 
  54.         $aiStartups{$team}{leader},
  55.         $aiStartups{$team}{funding},
  56.         $aiStartups{$team}{hq};
  57. }
  58.  
  59. # Print sorted in descending order
  60. print "\nMy AI Startups - sorted by Team Name descending:\n\n";
  61. print "Team           Year   Owner             Leader            Funding  HQ\n";
  62. foreach my $team (sort { $b cmp $a } keys %aiStartups) {
  63.     printf "%-15s %-6s %-17s %-17s %-8s %s\n", 
  64.         $team, 
  65.         $aiStartups{$team}{year}, 
  66.         $aiStartups{$team}{owner}, 
  67.         $aiStartups{$team}{leader},
  68.         $aiStartups{$team}{funding},
  69.         $aiStartups{$team}{hq};
  70. }
  71.  
  72. # Print HTML table
  73. print "\nHTML Page containing information on my Team:\n\n";
  74. print "<html>\n";
  75. print "<head>\n<title>AI Startups</title>\n</head>\n";
  76. print "<body>\n";
  77. print "<h1>AI Startup Teams</h1>\n";
  78. print "<table border='1' cellpadding='5'>\n";
  79. print "<tr><th>Team</th><th>Year</th><th>Owner</th><th>Leader</th><th>Funding</th><th>HQ</th></tr>\n";
  80. foreach my $team (sort keys %aiStartups) {
  81.     print "<tr><td>$team</td><td>$aiStartups{$team}{year}</td><td>$aiStartups{$team}{owner}</td><td>$aiStartups{$team}{leader}</td><td>$aiStartups{$team}{funding}</td><td>$aiStartups{$team}{hq}</td></tr>\n";
  82. }
  83. print "</table>\n";
  84. print "</body>\n";
  85. print "</html>\n";
  86.  
  87. # Print XML output
  88. print "\n\nXML Output:\n\n";
  89. print "<AIStartups>\n";
  90. foreach my $team (sort keys %aiStartups) {
  91.     print "  <Startup>\n";
  92.     print "    <Team>$team</Team>\n";
  93.     print "    <Year>$aiStartups{$team}{year}</Year>\n";
  94.     print "    <Owner>$aiStartups{$team}{owner}</Owner>\n";
  95.     print "    <Leader>$aiStartups{$team}{leader}</Leader>\n";
  96.     print "    <Funding>$aiStartups{$team}{funding}</Funding>\n";
  97.     print "    <HQ>$aiStartups{$team}{hq}</HQ>\n";
  98.     print "  </Startup>\n";
  99. }
  100. print "</AIStartups>\n";
  101.  
Success #stdin #stdout 0.01s 5420KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
My AI Startups - sorted by Team Name ascending:

Team           Year   Owner             Leader            Funding  HQ
Anthropic       2021   Dario Amodei      Dario Amodei      7B       San Francisco
Cohere          2019   Aidan Gomez       Aidan Gomez       445M     Toronto
Inflection      2022   Mustafa Suleyman  Mustafa Suleyman  1.3B     Palo Alto
Mistral         2023   Arthur Mensch     Arthur Mensch     415M     Paris
OpenAI          2015   Sam Altman        Sam Altman        13B      San Francisco

My AI Startups - sorted by Team Name descending:

Team           Year   Owner             Leader            Funding  HQ
OpenAI          2015   Sam Altman        Sam Altman        13B      San Francisco
Mistral         2023   Arthur Mensch     Arthur Mensch     415M     Paris
Inflection      2022   Mustafa Suleyman  Mustafa Suleyman  1.3B     Palo Alto
Cohere          2019   Aidan Gomez       Aidan Gomez       445M     Toronto
Anthropic       2021   Dario Amodei      Dario Amodei      7B       San Francisco

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><th>Funding</th><th>HQ</th></tr>
<tr><td>Anthropic</td><td>2021</td><td>Dario Amodei</td><td>Dario Amodei</td><td>7B</td><td>San Francisco</td></tr>
<tr><td>Cohere</td><td>2019</td><td>Aidan Gomez</td><td>Aidan Gomez</td><td>445M</td><td>Toronto</td></tr>
<tr><td>Inflection</td><td>2022</td><td>Mustafa Suleyman</td><td>Mustafa Suleyman</td><td>1.3B</td><td>Palo Alto</td></tr>
<tr><td>Mistral</td><td>2023</td><td>Arthur Mensch</td><td>Arthur Mensch</td><td>415M</td><td>Paris</td></tr>
<tr><td>OpenAI</td><td>2015</td><td>Sam Altman</td><td>Sam Altman</td><td>13B</td><td>San Francisco</td></tr>
</table>
</body>
</html>


XML Output:

<AIStartups>
  <Startup>
    <Team>Anthropic</Team>
    <Year>2021</Year>
    <Owner>Dario Amodei</Owner>
    <Leader>Dario Amodei</Leader>
    <Funding>7B</Funding>
    <HQ>San Francisco</HQ>
  </Startup>
  <Startup>
    <Team>Cohere</Team>
    <Year>2019</Year>
    <Owner>Aidan Gomez</Owner>
    <Leader>Aidan Gomez</Leader>
    <Funding>445M</Funding>
    <HQ>Toronto</HQ>
  </Startup>
  <Startup>
    <Team>Inflection</Team>
    <Year>2022</Year>
    <Owner>Mustafa Suleyman</Owner>
    <Leader>Mustafa Suleyman</Leader>
    <Funding>1.3B</Funding>
    <HQ>Palo Alto</HQ>
  </Startup>
  <Startup>
    <Team>Mistral</Team>
    <Year>2023</Year>
    <Owner>Arthur Mensch</Owner>
    <Leader>Arthur Mensch</Leader>
    <Funding>415M</Funding>
    <HQ>Paris</HQ>
  </Startup>
  <Startup>
    <Team>OpenAI</Team>
    <Year>2015</Year>
    <Owner>Sam Altman</Owner>
    <Leader>Sam Altman</Leader>
    <Funding>13B</Funding>
    <HQ>San Francisco</HQ>
  </Startup>
</AIStartups>
https://ideone.com/ypCGzO
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!