factor.frink

Download or view factor.frink in plain text format


n = eval[input["Enter number to factor: "]]

m = int[sqrt[n]]

for i = 2 to m
   if (n mod i) == 0
      println["$i, " + n/i]

Download or view factor.frink in plain text format

This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen, eliasen@mindspring.com