Data update

Task/Factors-of-an-integer/Ada/factors-of-an-integer.ada

@@ -1,22 +0,0 @@
-with Ada.Text_IO;
-with Ada.Command_Line;
-procedure Factors is
-   Number  : Positive;
-   Test_Nr : Positive := 1;
-begin
-   if Ada.Command_Line.Argument_Count /= 1 then
-      Ada.Text_IO.Put (Ada.Text_IO.Standard_Error, "Missing argument!");
-      Ada.Command_Line.Set_Exit_Status (Ada.Command_Line.Failure);
-      return;
-   end if;
-   Number := Positive'Value (Ada.Command_Line.Argument (1));
-   Ada.Text_IO.Put ("Factors of" & Positive'Image (Number) & ": ");
-   loop
-      if Number mod Test_Nr = 0 then
-         Ada.Text_IO.Put (Positive'Image (Test_Nr) & ",");
-      end if;
-      exit when Test_Nr ** 2 >= Number;
-      Test_Nr := Test_Nr + 1;
-   end loop;
-   Ada.Text_IO.Put_Line (Positive'Image (Number) & ".");
-end Factors;

Task/Factors-of-an-integer/AutoIt/factors-of-an-integer.autoit

@@ -1,13 +0,0 @@
-;AutoIt Version: 3.2.10.0
-$num = 45
-MsgBox (0,"Factors", "Factors of " & $num & " are: " & factors($num))
-consolewrite ("Factors of " & $num & " are: " & factors($num))
-Func factors($intg)
-   $ls_factors=""
-   For $i = 1 to $intg/2
-      if ($intg/$i - int($intg/$i))=0 Then
-	 $ls_factors=$ls_factors&$i &", "
-      EndIf
-   Next
-   Return $ls_factors&$intg
-EndFunc

Task/Factors-of-an-integer/COBOL/factors-of-an-integer.cobol

@@ -1,40 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. FACTORS.
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  CALCULATING.
-           03  NUM  USAGE BINARY-LONG VALUE ZERO.
-           03  LIM  USAGE BINARY-LONG VALUE ZERO.
-           03  CNT  USAGE BINARY-LONG VALUE ZERO.
-           03  DIV  USAGE BINARY-LONG VALUE ZERO.
-           03  REM  USAGE BINARY-LONG VALUE ZERO.
-           03  ZRS  USAGE BINARY-SHORT VALUE ZERO.
-
-       01  DISPLAYING.
-           03  DIS  PIC 9(10) USAGE DISPLAY.
-
-       PROCEDURE DIVISION.
-       MAIN-PROCEDURE.
-           DISPLAY "Factors of? " WITH NO ADVANCING
-           ACCEPT NUM
-           DIVIDE NUM BY 2 GIVING LIM.
-
-           PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT > LIM
-               DIVIDE NUM BY CNT GIVING DIV REMAINDER REM
-               IF REM = 0
-                   MOVE CNT TO DIS
-                   PERFORM SHODIS
-               END-IF
-           END-PERFORM.
-
-           MOVE NUM TO DIS.
-           PERFORM SHODIS.
-           STOP RUN.
-
-       SHODIS.
-           MOVE ZERO TO ZRS.
-           INSPECT DIS TALLYING ZRS FOR LEADING ZERO.
-           DISPLAY DIS(ZRS + 1:)
-           EXIT PARAGRAPH.
-
-       END PROGRAM FACTORS.

Task/Factors-of-an-integer/Chapel/factors-of-an-integer.chapel

@@ -1,8 +0,0 @@
-iter factors(n) {
-	for i in 1..floor(sqrt(n)):int {
-		if n % i == 0 then {
-			yield i;
-			yield n / i;
-		}
-	}
-}

Task/Factors-of-an-integer/PowerShell/factors-of-an-integer-1.psh

@@ -1,3 +0,0 @@
-function Get-Factor ($a) {
-    1..$a | Where-Object { $a % $_ -eq 0 }
-}

Task/Factors-of-an-integer/PowerShell/factors-of-an-integer-2.psh

@@ -1,6 +0,0 @@
-function Get-Factor ($a) {
-    1..[Math]::Sqrt($a) `
-        | Where-Object { $a % $_ -eq 0 } `
-        | ForEach-Object { $_; $a / $_ } `
-        | Sort-Object -Unique
-}

Task/Factors-of-an-integer/REXX/factors-of-an-integer-2.rexx

@@ -1,5 +1,5 @@
--- 22 Mar 2025
-include Settings
+-- 23 Aug 2025
+include Setting
 
 say 'FACTORS OF AN INTEGER'
 say version
@@ -21,6 +21,4 @@ end
 say Format(Time('e'),,3) 'seconds'; say
 exit
 
-include Functions
-include Sequences
-include Abend
+include Math

Task/Factors-of-an-integer/Uiua/factors-of-an-integer.uiua

@@ -1,2 +1,2 @@
-Factors ← ◴⊂⟜(⇌÷)⊸(▽:⟜≡(=0◿)⊙¤⊸(↘1⇡+1⌊√))
+Factors ← ◴⊂⟜(⇌÷)⊸(▽⤚≡(=0◿)⊙¤⊸(↘1⇡+1⌊√))
 ⍚Factors {45 53 64}