Terapia de snoozing

... no he tenido más remedio que levantarme a las 7:45 preguntándome sin cesar que efecto o predisposición psicológica puede generar en un individuo la interrupción del sueño siguiendo un compás rítmico de intervalos regulares justo antes de despertar ...




Hoy por la mañana he tenido un ataque de síndrome de Stendhal matemático ... y no, no he visto ninguna maldita bolsa de plástico arrastrada por el viento ... no se trata de eso ...

Ayer le pedí a mi móvil que me despertase a las 6:30 AM pero como tenía que hacer cosas importantes y para no quedarme dormido decidí
programar algunos despertadores más (la memoria puede albergar hasta un total de 10 alarmas) en concreto un par más a las 6:35 y a las 6:40.

El período de snooze por defecto es de 9 minutos y yo lo uso a menudo; de modo que esta mañana al sonar la alarma a las 6:30, le he dado al snooze sin ser demasiado consciente de que estaba desencadenando el ataque de Stendhal que os comento si eso ...

... siguiente bip-bip-bip a las 6:35, un ratito más de sueño ... pero en ésta ocasión sólo hasta las 6:39 (4 minutos de tregua) para culminar a las 6:40 cuando otra vez tengo que darle al botoncito.

La serie resultante de snooze-timings es la siguiente:

5, 4, 1, 4, 4, 1, 4, 4, 1, 4, 4, 1, 4, 4, 1, ....

... no hace falta decir que la he seguido maravillado entre ensoñaciones hasta que su delicioso régimen periódico se ha manifestado con tal fuerza - sí, a esas horas soy aún más corto - que hasta mi adormilada mente no ha tenido más remedio que depertar a las 7:45 preguntándome sin cesar que efecto o predisposición psicológica puede generar en un individuo la interrupción del sueño siguiendo un compás rítmico de intervalos regulares justo antes del amanecer del mismo modo que el beat de una canción nos anima a mover los pies para acabar bailando cuando la escuchamos.

Sigo pensando en ello cuando empiezo a escribir snooze.pl ...

my $alarms = {al1 => { start => 2,  period => 13},
          al2 => { start => 3,  period => 4},
           al2 => { start => 5,  period => 7},};
my $buzzs = {};
my $end_time = 300;

foreach my $time ( 0..$end_time ) {
  foreach my $key ( keys %{$alarms} ) {
    next if ( $time < $alarms->{$key}{start} );
    ( ! ( ($time - $alarms->{$key}{start}) % $alarms->{$key}{period} ) ) ?
      $buzzs->{$time} = 1 : ();
  }
}

map { print "$_\n"; } sort { $a <=> $b } keys %{$buzzs};

... espero poder reconfigurar el móvil para programar distintos tiempos de snoozing y de ese modo mañana ajustar la primera alarma a las 6:32 con un tiempo de 13 minutos entre alarmas, la segunda a las 6:33 con un snooze a 4 minutos y la última a las 6:35 con periodicidad de 7 minutos generando la serie de intervalos de sueño:

1, 2, 2, 4, 1, 3, 4, 4, 3, 1, 1, 3, 2, 2, 4, 1, 1, 2, 4, 4, 3, 1, 4, ...

lo que no dejo de preguntarme es la hora de levantarme además del humor que tendré si decido no hacerlo hasta que de nuevo perciba la periodicidad de la secuencia de snoozes.