Skip to content

Instantly share code, notes, and snippets.

@tomcha
Created November 29, 2015 12:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tomcha/0967ce0ee4a811001473 to your computer and use it in GitHub Desktop.
Save tomcha/0967ce0ee4a811001473 to your computer and use it in GitHub Desktop.
18
#!/usr/bin/env perl
use strict;
use warnings;
my $apple;
my $banana;
my $peach;
$apple = 250;
$banana = 150;
$peach = 120;
my $total = $apple * 10 + $banana * 8 + $peach * 5;
my $addtax = $total * 1.08;
my $cost = $addtax / 20.0;
print "1杯あたりの原価は$costです。\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment