Πώς να υπολογίσετε Prime παράγοντες του ακεραίου σε Perl

Perl δεν έχει μια προκαθορισμένη λειτουργία που σας επιτρέπει να πάρετε τους πρωταρχικούς παράγοντες του ακεραίου , αλλά χρησιμοποιώντας αναδρομή και αριθμούς βάσης - 10 , μπορείτε να γράψετε τη δική σας λειτουργία για να επιτευχθεί το έργο . Χρησιμοποιώντας τη λειτουργία " χάρτη " σας επιτρέπει να εκτελέσετε αναδρομικά ένα μπλοκ κώδικα σε μια λίστα. Με τη χρήση του ως ακέραιο τη λίστα , μπορείτε να εξαγάγετε επανειλημμένα πρωταρχικούς παράγοντες από το να πάρει όλα αυτά , στη συνέχεια, χρησιμοποιήστε τη λειτουργία " sprintf " για να εμφανιστεί στην οθόνη χωρίζονται από ένα διάστημα ώστε να είναι ευκολότερο να διαβάσει . Οδηγίες
Η

1 Ανοίξτε ένα αρχείο προγράμματος Perl . Πληκτρολογήστε τον ακόλουθο κώδικα :

παράγοντας υπο {

για ( $ i = 0 ? $ I <@ _ ? $ I + + ) {

$ num = @ _ [ ,"Pli̱ktrologí̱ste ton akóloutho kó̱dika :̱

parágontas ypo {

gia ( $ i = 0 ?̱ $ I <@ _ ?̱ $ I + + ) {

$ num = @ _ [ $ i ] ?

εκτύπωσης " Οι πρωταρχικοί παράγοντες @ _ [ $ i ] είναι : " ?

χάρτη print { sprintf ( "% s" , μήκος ) , " " } GetNext ( 1x $ num ) ?

print " \\ n" ?

} }

Αυτό δημιουργεί μια απλή λειτουργία που ονομάζεται «παράγοντας» που λαμβάνει οποιοδήποτε αριθμό παραμέτρων και εκτυπώνει τους πρωταρχικούς παράγοντες , κάθε χωρίζονται από ένα διάστημα . Καλεί τη λειτουργία " GetNext " για να υπολογίσετε πραγματικά τους πρωταρχικούς παράγοντες 2

Πληκτρολογήστε τον ακόλουθο κώδικα : .

Υπο GetNext {

if ( $ _ [ 0 ! ( ; .. + ) ] ~ /^ \\ 1 + $ /) {

επιστρέψει @ _ ?

} else {

επιστροφή χάρτη GetNext ( $ _ ) , ( "$ 1" , $ _ [ 0 ] = ~ s /$ 1/1/g , $ _ [ 0 ] ) [ 0 , -1 ] ?

}

}

Αυτό δημιουργεί την « GetNext ", η οποία ελέγχει αν ένας ακέραιος αριθμός είναι πρώτος αριθμός . Αν ναι , επιστρέφει τον αριθμό στο «παράγοντα» λειτουργία που πρόκειται να εκτυπωθεί . Αν όχι , καλεί αναδρομικά η ίδια να βρει την επόμενη χαμηλότερη προνομιακή
εικόνων 3

Πληκτρολογήστε τον ακόλουθο κώδικα :

παράγοντας ( 45 ) ?

Παράγοντα . ( 3300,24 ) ?

Αυτές οι δύο γραμμές να ελέγξετε τη λειτουργία για να πάρει τους πρώτους παράγοντες . Η πρώτη γραμμή έχει μόνο μία παράμετρο , έτσι ώστε να εμφανίζει μόνο μία γραμμή . Εκτυπώνει 3 , 3 και 5 ως πρωταρχικούς παράγοντες . Η επόμενη γραμμή παίρνει τους πρωταρχικούς παράγοντες για δύο αριθμούς . Για 3.300 , εκτυπώνει 2 , 2 , 3 , 5 , 5 και 11 , και για 24 , θα τυπώσει 2 , 2 , 2 και 3 .
Η 4

Αποθηκεύστε το πρόγραμμα Perl .


εικόνων