X-Men: Fitness Evaluation

• sub fitness ($;$) {

• my $string = shift;

• my $distance = 0;

• for ( 0..($strLength -1)) {

• $distance +=

  • abs( ord( substr( $string, $_, 1)) -
    • ord( substr( $targetString, $_, 1)));