Shell Programming and Scripting

echo "1920x1080" | awk -F"x" ' { print "X = " $1 " and Y = " $2 } '

$ perl -MMath::BigInt=bgcd -le '$x=bgcd(1920,1080); print 1920/$x." ".1080/$x'
16 9

#!/bin/bash
## reduce2ints.sh

#
# returns the reduced values of 2 given integers.
#

# error-handling
if [[ ( "$#" -lt 2 ) ]]; then
  echo -e "Error!!!\x0ATry \"$0 value1 value2\"";
  exit 1;
else

# put parameters in own variables
  X=$1;  
  Y=$2;
  
# split values into their prime-factors and put them in arrays
  declare -a XPrimes=$(factor $X | cut -d$'\x20' -f2-);
  declare -a YPrimes=$(factor $Y | cut -d$'\x20' -f2-);
  
# subtract arrays from eachother to get the differences
  declare -a RestX=("$(comm -23 <(echo ${XPrimes} | sed 's/ /\n/g') <(echo ${YPrimes} | sed 's/ /\n/g') | tr "\n" " ")");
  declare -a RestY=("$(comm -13 <(echo ${XPrimes} | sed 's/ /\n/g') <(echo ${YPrimes} | sed 's/ /\n/g') | tr "\n" " ")");
  
# prepare outvariables
  NewX=1;
  NewY=1;

# calculate the 'rests'
  for element in ${RestX[@]}; do
    let NewX=$NewX*$element;
  done
  
  for element in ${RestY[@]}; do
    let NewY=$NewY*$element;
  done
  
# output the solutions
  echo "1. Reduced Value=$NewX";
  echo "2. Reduced Value=$NewY";
fi

# EOF

$ ./test.sh 1024 768
4
3