Today in history

[Emily Hahn]

My parents didn't get me either the monkey or the bike I wanted for my birthday, so I had to keep borrowing my sister's. This was difficult, as they were inseparable.


Dead Ladies Show

Fortunately I had a great life anyway.

Her granddaughter Alfia Vecchio Wallace remembered Hahn at her funeral: “Chances are, your grandmother didn’t smoke cigars and let you hold wild role-playing parties in her apartment. Chances are that she didn’t teach you Swahili obscenities. Chances are that when she took you to the zoo, she didn’t start whooping passionately at the top of her lungs as you passed the gibbon cage. Sadly for you... your grandmother was not Emily Hahn.”

[Charlotte Brontë]

There was no possibility of taking a walk this fine day, as dear Papa had brought home a velocipede which looked so hideous it was promptly nicknamed 'Rochester'. When one of my sisters, I forget which, pointed out this was not far removed from walking, she was severely frowned upon by the rest of us, though secretly I thought she had a point. The day ended in tragedy when Branwell ran over a bird.

[George Sand]

Went to the LBS, where the salesman insisted on trying to get me to accept a women's frame. I actually prefer that, but it was the principle of the thing. To my shame, I pulled "Do you know who I am?" on him, at which point he relented.

[Virginia Mayo]

If you're sensing a theme, you're not wrong. Have accepted that typecasting is my fate. It could be worse. I put my foot down when the studio wanted me in The Town Bike.

[Ada Lovelace]

with Ada.Text_IO;         use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;   use Ada.Float_Text_IO;

procedure Cycling_Stats is

   Distance      : Float; -- kilometers
   Time_Hours    : Float;
   Avg_Speed     : Float;
   Weight        : Float; -- rider weight in kg
   Calories      : Float;

begin
   Put_Line("🚴‍♂️ Cycling Stats Calculator");

   Put("Enter distance (km): ");
   Get(Distance);

   Put("Enter time (hours): ");
   Get(Time_Hours);

   Put("Enter your weight (kg): ");
   Get(Weight);

   if Time_Hours > 0.0 then
      Avg_Speed := Distance / Time_Hours;
   else
      Avg_Speed := 0.0;
   end if;

   -- Simple calories estimate:
   -- calories ≈ MET(=8.0) × weight(kg) × time(hr)
   Calories := 8.0 * Weight * Time_Hours;

   Put_Line("");
   Put_Line("📊 Results:");
   Put("Average Speed: ");
   Put(Avg_Speed, Fore => 1, Aft => 2, Exp => 0);
   Put_Line(" km/h");

   Put("Estimated Calories Burned: ");
   Put(Calories, Fore => 1, Aft => 2, Exp => 0);
   Put_Line(" kcal");

end Cycling_Stats;

Just something I scribbled while waiting for my eggs to poach this morning.