factor

/*
**  Usage:
**      factor(number)
**
**  Arguments:
**      number    positive integer
**
**  Returns:
**      a ds_list containing the prime factors of the given integer
**
**  GMLscripts.com
*/
{
    var num,dsid,check;
    num = argument0;
    dsid = ds_list_create();
    check = 2;
    while (sqr(check) <= num) {
        if (num mod check == 0) {
            ds_list_add(dsid,check);
            num = num div check;
        }else{
            check += 1;
        }
    }
    if (num != 1) {
        ds_list_add(dsid,num);
    }
    return dsid;
}