Primfaktorzerlegung

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

Function pr_fac(ByVal n As Integer, ByVal exp As Boolean) As IList
    If Not exp Then
        Dim facs As New List(Of Integer)

        While Not n = 1
            Dim p As Integer = sm_div(n)
            n \= p

            While n Mod p = 0
                n \= p
            End While
            facs.Add(p)
        End While

        Return facs
    Else
        Dim facs_exp As New List(Of String)

        While Not n = 1
            Dim p As Integer = sm_div(n), e As Byte = 1
            n \= p

            While n Mod p = 0
                n \= p
                e += 1
            End While
            facs_exp.Add("(" & p & "," & e & ")")
        End While

        Return facs_exp
    End If
End Function