QB64.org Forum

Active Forums => Programs => Topic started by: Ashish on June 28, 2019, 03:28:16 am

Title: Factorials, Powers & Multiplication
Post by: Ashish on June 28, 2019, 03:28:16 am

Hello everyone!

I developed a program which
1. Can give you factorial of any positive integer.  For example 1000!
2. Raise a positive integer to any positive integer. For example 2^2000
3. Can give the product of any positive integer. For example 896346326469864398643969869463294269846946329423986*78343664782643876748367483676438

Steps to setup the program -
1. Paste the code in QB64 IDE and save it with the name "fpm.bas"
2. Open the commandline and start executing commands in it.
3. Try "fpm -help" for more info.

 [ This attachment cannot be displayed inline in 'Print Page' view ]  

Code: QB64: [Select]

1. '#####################################
2. '#                                   #
3. '#      FPM by Ashish                #
4. '#                                   #
5. '#####################################
6. '28 Jun, 2019
7. 'Save the file with name "fpm.bas" and then compile to produce fpm.exe/fpm.
8. 'and then use commandline interface for executing commands in it.
9.  
10.  
11. $CONSOLE:ONLY
12. a$ = COMMAND$(1)
13. _CONSOLETITLE "Factorials, Power and Multiplication"
14.  
15. IF _TRIM$(a$) = "-help" THEN
16.     _ECHO "--------------------------------------"
17.     _ECHO "*          FPM by Ashish             *"
18.     _ECHO "--------------------------------------"
19.     _ECHO ""
20.     _ECHO " Usage - fpm [function_name]([arguements])"
21.     _ECHO "List of arguements -"
22.     _ECHO "1. mult()"
23.     _ECHO "Syntax - mult(a,b) | where a,b are positive integers of any digit."
24.     _ECHO "Returns a*b"
25.     _ECHO "Example : Try fpm mult(2,7)"
26.     _ECHO ""
27.     _ECHO "2. pow()"
28.     _ECHO "Syntax - pow(a,b) |where a,b are positive integers of any digit."
29.     _ECHO "Returns a^b"
30.     _ECHO "Example : Try fpm pow(3,2)"
31.     _ECHO ""
32.     _ECHO "3. fact()"
33.     _ECHO "Syntax - fact(a) | where a is positive integer of any digit."
34.     _ECHO "Returns a! , that is 1*2*3*...*(a-1)*a"
35.     _ECHO "Example : Try fpm fact(10)"
36.  
37.     SYSTEM
38. END IF
39. a$ = _TRIM$(a$)
40. IF RIGHT$(a$, 1) <> ")" THEN a$ = ""
41.  
42. SELECT CASE LEFT$(a$, 4)
43.     CASE "mult"
44.         FOR i = 1 TO LEN(a$)
45.             IF MID$(a$, i, 1) = "," THEN EXIT FOR
46.         NEXT
47.         t# = TIMER
48.         _ECHO mult$(MID$(a$, 6, i - 6), MID$(a$, i + 1, LEN(a$) - (i + 1)))
49.         _ECHO "Time taken : " + STR$(TIMER - t#) + " seconds"
50.     CASE "fact"
51.         n~&& = VAL(MID$(a$, 6, LEN(a$) - 6))
52.         IF n~&& = 0 OR n~&& = 1 THEN _ECHO "1": SYSTEM
53.         IF n~&& = 2 THEN _ECHO "2": SYSTEM
54.         c$ = "1"
55.         IF n~&& > 500 THEN _ECHO "Can take " + STR$(2 ^ ((n~&& / 500) + 1)) + " seconds or more."
56.         t# = TIMER
57.         FOR i~&& = 2 TO n~&&
58.             c$ = mult(c$, _TRIM$(STR$(i~&&)))
59.         NEXT
60.         _ECHO c$
61.         _ECHO "Time taken : " + STR$(TIMER - t#) + " seconds"
62.     CASE "pow("
63.         FOR i = 1 TO LEN(a$)
64.             IF MID$(a$, i, 1) = "," THEN EXIT FOR
65.         NEXT
66.         b$ = MID$(a$, 5, i - 5)
67.         c$ = MID$(a$, i + 1, LEN(a$) - (i + 1))
68.         c~&& = VAL(c$)
69.         IF VAL(b$) = 0 AND c~&& = 0 THEN _ECHO "not defined.": SYSTEM
70.         IF c~&& = 0 THEN _ECHO "1": SYSTEM
71.         IF c~&& = 1 THEN _ECHO b$: SYSTEM
72.         d$ = b$
73.         t# = TIMER
74.         FOR i~&& = 1 TO c~&& - 1
75.             d$ = mult(d$, b$)
76.         NEXT
77.         _ECHO d$
78.         _ECHO "Time taken : " + STR$((TIMER - t#)) + " seconds"
79.     CASE ELSE
80.         COLOR _RGB(255, 0, 0)
81.         _ECHO ""
82.         _ECHO "Syntax error."
83.         _ECHO "Try fpm -help"
84.         COLOR _RGB(255, 255, 255)
85. END SELECT
86. SYSTEM
87.  
88. FUNCTION mult$ (n1$, n2$)
89.     $CHECKING:OFF
90.     IF VAL(n1$) = 0 OR VAL(n2$) = 0 THEN mult$ = "0": EXIT FUNCTION
91.     IF LEN(n1$) = 1 THEN mult$ = mult_single_dgt$(n2$, n1$): EXIT FUNCTION
92.     IF LEN(n2$) = 1 THEN mult$ = mult_single_dgt$(n1$, n2$): EXIT FUNCTION
93.     DIM res$(LEN(n2$))
94.     FOR i = LEN(n2$) TO 1 STEP -1
95.         dgt$1 = MID$(n2$, i, 1)
96.         res$(LEN(n2$) - i) = mult_single_dgt(n1$, dgt$1) + STRING$(LEN(n2$) - i, "0")
97.         p1 = LEN(res$(LEN(n2$) - i))
98.         IF p1 > p0 THEN g = p1
99.         p0 = p1
100.     NEXT
101.     FOR i = 0 TO LEN(n2$) - 1
102.         IF LEN(res$(i)) < g THEN res$(i) = STRING$(g - LEN(res$(i)), "0") + res$(i)
103.         ' _echo res$(i)
104.     NEXT
105.     FOR i = g TO 1 STEP -1
106.         sum = 0
107.         FOR j = 0 TO UBOUND(res$) - 1
108.             sum = sum + VAL(MID$(res$(j), i, 1))
109.         NEXT
110.         ' ? sum
111.         str_sum$ = _TRIM$(STR$(sum + carry))
112.         IF i > 1 THEN
113.             IF LEN(str_sum$) > 1 THEN
114.                 final_dgt$ = RIGHT$(str_sum$, 1)
115.                 carry = VAL(LEFT$(str_sum$, LEN(str_sum$) - 1))
116.             ELSE
117.                 final_dgt$ = str_sum$
118.                 carry = 0
119.             END IF
120.         ELSE
121.             final_dgt$ = str_sum$
122.             IF LEN(final_dgt$) > 1 THEN
123.                 temp$ = ""
124.                 FOR j = LEN(final_dgt$) TO 1 STEP -1
125.                     temp$ = temp$ + MID$(final_dgt$, j, 1)
126.                 NEXT
127.                 final_dgt$ = temp$
128.             END IF
129.         END IF
130.         final_sum$ = final_sum$ + final_dgt$
131.     NEXT
132.     FOR i = LEN(final_sum$) TO 1 STEP -1
133.         mult$ = mult$ + MID$(final_sum$, i, 1)
134.     NEXT
135.     $CHECKING:ON
136. END FUNCTION
137.  
138. FUNCTION mult_single_dgt$ (n$, d$)
139.     $CHECKING:OFF
140.     IF d$ = "0" THEN mult_single_dgt$ = "0": EXIT FUNCTION
141.     IF d$ = "1" THEN mult_single_dgt$ = n$: EXIT FUNCTION
142.     IF n$ = "1" THEN mult_single_dgt$ = d$: EXIT FUNCTION
143.     FOR j = LEN(n$) TO 1 STEP -1
144.         dgt_1$1 = MID$(n$, j, 1)
145.         r = (VAL(dgt_1$1) * VAL(d$)) + carry
146.         ' ? r
147.         IF j > 1 THEN
148.             FOR k = 90 TO 0 STEP -10
149.                 IF r >= k THEN carry = k * 0.1: final$ = _TRIM$(STR$(r - k)): EXIT FOR
150.             NEXT
151.         ELSE
152.             final$ = _TRIM$(STR$(r))
153.             IF LEN(n$) > 1 THEN
154.                 tmp$ = ""
155.                 FOR k = LEN(final$) TO 1 STEP -1
156.                     tmp$ = tmp$ + MID$(final$, k, 1)
157.                 NEXT
158.                 final$ = tmp$
159.             END IF
160.         END IF
161.         product$ = product$ + final$
162.     NEXT
163.     IF LEN(n$) > 1 THEN
164.         FOR j = LEN(product$) TO 1 STEP -1
165.             mult_single_dgt$ = mult_single_dgt$ + MID$(product$, j, 1)
166.         NEXT
167.     ELSE mult_single_dgt$ = product$
168.     END IF
169.     $CHECKING:ON
170. END FUNCTION
171.  

Title: Re: Factorials, Powers & Multiplication
Post by: bplus on June 28, 2019, 11:30:40 am

Hi Ashish,

Wow, you have powers going too. This will be handy, thanks!

Title: Re: Factorials, Powers & Multiplication
Post by: Ashish on June 28, 2019, 11:41:20 am

Thanks Bplus!

NEW UPDATE :
1. Fixed some glitches and optimized the code.
2. Now, you can use nested functions!! Yes, you read it right. For example, you can execute command like this "fpm mult(pow(2,4),mult(3,3))"
You can nest it even more.

Code: QB64: [Select]

1. '#####################################
2. '#                                   #
3. '#      FPM by Ashish                #
4. '#                                   #
5. '#####################################
6. '28 Jun, 2019
7. 'Save the file with name "fpm.bas" and then compile to produce fpm.exe/fpm.
8. 'and then use commandline interface for executing commands in it.
9.  
10.  
11. $CONSOLE:ONLY
12. a$ = COMMAND$(1)
13. _CONSOLETITLE "Factorials, Power and Multiplication"
14.  
15. IF _TRIM$(a$) = "-help" THEN
16.     _ECHO "--------------------------------------"
17.     _ECHO "*          FPM by Ashish             *"
18.     _ECHO "--------------------------------------"
19.     _ECHO ""
20.     _ECHO " Usage - fpm [function_name]([arguements])"
21.     _ECHO "List of arguements -"
22.     _ECHO "1. mult()"
23.     _ECHO "Syntax - mult(a,b) | where a,b are positive integers of any digit."
24.     _ECHO "Returns a*b"
25.     _ECHO "Example : Try fpm mult(2,7)"
26.     _ECHO ""
27.     _ECHO "2. pow()"
28.     _ECHO "Syntax - pow(a,b) |where a,b are positive integers of any digit."
29.     _ECHO "Returns a^b"
30.     _ECHO "Example : Try fpm pow(3,2)"
31.     _ECHO ""
32.     _ECHO "3. fact()"
33.     _ECHO "Syntax - fact(a) | where a is positive integer of any digit."
34.     _ECHO "Returns a! , that is 1*2*3*...*(a-1)*a"
35.     _ECHO "Example : Try fpm fact(10)"
36.     _ECHO "Note : These function can also be used in the place of a and b"
37.     SYSTEM
38. END IF
39. dummy$ = execute$(a$, 1)
40. SYSTEM
41.  
42. FUNCTION execute$ (a$, sts)
43.     $CHECKING:OFF
44.     a$ = _TRIM$(a$)
45.     IF RIGHT$(a$, 1) <> ")" AND sts = 1 THEN a$ = ""
46.  
47.     SELECT CASE LEFT$(a$, 4)
48.         CASE "mult"
49.             brc = 0
50.             FOR i = 1 TO LEN(a$)
51.                 IF MID$(a$, i, 1) = "," AND brc = 1 THEN EXIT FOR
52.                 IF MID$(a$, i, 1) = "(" THEN brc = brc + 1
53.                 IF MID$(a$, i, 1) = ")" THEN brc = brc - 1
54.             NEXT
55.             IF sts = 1 THEN t# = TIMER
56.             num_a$ = _TRIM$(MID$(a$, 6, i - 6))
57.             num_b$ = _TRIM$(MID$(a$, i + 1, LEN(a$) - (i + 1)))
58.             IF sts = 1 THEN
59.                 _ECHO mult$(execute$(num_a$, 0), execute$(num_b$, 0))
60.                 _ECHO "Time taken : " + STR$(TIMER - t#) + " seconds"
61.             ELSE
62.                 execute$ = mult$(execute$(num_a$, 0), execute$(num_b$, 0))
63.             END IF
64.         CASE "fact"
65.             n~&& = VAL(execute$(MID$(a$, 6, LEN(a$) - 6), 0))
66.             IF sts = 1 THEN
67.                 IF n~&& = 0 OR n~&& = 1 THEN _ECHO "1": SYSTEM
68.                 IF n~&& = 2 THEN _ECHO "2": SYSTEM
69.             ELSE
70.                 IF n~&& = 0 OR n~&& = 1 THEN execute$ = "1": EXIT FUNCTION
71.                 IF n~&& = 2 THEN execute$ = "2": EXIT FUNCTION
72.             END IF
73.             c$ = "1"
74.             IF sts = 1 THEN
75.                 IF n~&& > 500 THEN _ECHO "Can take " + STR$(2 ^ ((n~&& / 500) + 1)) + " seconds or more."
76.                 t# = TIMER
77.             END IF
78.             FOR i~&& = 2 TO n~&&
79.                 c$ = mult(c$, _TRIM$(STR$(i~&&)))
80.             NEXT
81.             IF sts = 1 THEN
82.                 _ECHO c$
83.                 _ECHO "Time taken : " + STR$(TIMER - t#) + " seconds"
84.             ELSE execute$ = c$
85.             END IF
86.         CASE "pow("
87.             brc = 0
88.             FOR i = 1 TO LEN(a$)
89.                 IF MID$(a$, i, 1) = "," AND brc = 1 THEN EXIT FOR
90.                 IF MID$(a$, i, 1) = "(" THEN brc = brc + 1
91.                 IF MID$(a$, i, 1) = ")" THEN brc = brc - 1
92.             NEXT
93.             b$ = execute$(_TRIM$(MID$(a$, 5, i - 5)), 0)
94.             c$ = execute$(_TRIM$(MID$(a$, i + 1, LEN(a$) - (i + 1))), 0)
95.        
96.             c~&& = VAL(c$)
97.             IF sts = 1 THEN
98.                 IF VAL(b$) = 0 AND c~&& = 0 THEN _ECHO "not defined.": SYSTEM
99.                 IF c~&& = 0 THEN _ECHO "1": SYSTEM
100.                 IF c~&& = 1 THEN _ECHO b$: SYSTEM
101.             ELSE
102.                 IF VAL(b$) = 0 AND c~&& = 0 THEN _ECHO "not defined.": SYSTEM
103.                 IF c~&& = 0 THEN execute$ = "1": EXIT FUNCTION
104.                 IF c~&& = 1 THEN execute$ = b$: EXIT FUNCTION
105.             END IF
106.             d$ = b$
107.  
108.             IF sts = 1 THEN t# = TIMER
109.             FOR i~&& = 1 TO c~&& - 1
110.                 d$ = mult(d$, b$)
111.             NEXT
112.             IF sts = 1 THEN
113.                 _ECHO d$
114.                 _ECHO "Time taken : " + STR$((TIMER - t#)) + " seconds"
115.             ELSE
116.                 execute$ = d$
117.             END IF
118.         CASE ELSE
119.             IF sts = 1 THEN
120.                 _ECHO ""
121.                 _ECHO "Syntax error."
122.                 _ECHO "Try fpm -help"
123.             ELSE execute$ = a$
124.             END IF
125.     END SELECT
126.     $CHECKING:ON
127. END FUNCTION
128.  
129. FUNCTION mult$ (n1$, n2$)
130.     $CHECKING:OFF
131.     IF VAL(n1$) = 0 OR VAL(n2$) = 0 THEN mult$ = "0": EXIT FUNCTION
132.     IF LEN(n1$) = 1 THEN mult$ = mult_single_dgt$(n2$, n1$): EXIT FUNCTION
133.     IF LEN(n2$) = 1 THEN mult$ = mult_single_dgt$(n1$, n2$): EXIT FUNCTION
134.     DIM res$(LEN(n2$))
135.     FOR i = LEN(n2$) TO 1 STEP -1
136.         dgt$1 = MID$(n2$, i, 1)
137.         res$(LEN(n2$) - i) = mult_single_dgt(n1$, dgt$1) + STRING$(LEN(n2$) - i, "0")
138.         p1 = LEN(res$(LEN(n2$) - i))
139.         IF p1 > p0 THEN g = p1
140.         p0 = p1
141.     NEXT
142.     FOR i = 0 TO LEN(n2$) - 1
143.         IF LEN(res$(i)) < g THEN res$(i) = STRING$(g - LEN(res$(i)), "0") + res$(i)
144.         ' _echo res$(i)
145.     NEXT
146.     FOR i = g TO 1 STEP -1
147.         sum = 0
148.         FOR j = 0 TO UBOUND(res$) - 1
149.             sum = sum + VAL(MID$(res$(j), i, 1))
150.         NEXT
151.         ' ? sum
152.         str_sum$ = _TRIM$(STR$(sum + carry))
153.         IF i > 1 THEN
154.             IF LEN(str_sum$) > 1 THEN
155.                 final_dgt$ = RIGHT$(str_sum$, 1)
156.                 carry = VAL(LEFT$(str_sum$, LEN(str_sum$) - 1))
157.             ELSE
158.                 final_dgt$ = str_sum$
159.                 carry = 0
160.             END IF
161.         ELSE
162.             final_dgt$ = str_sum$
163.             IF LEN(final_dgt$) > 1 THEN
164.                 temp$ = ""
165.                 FOR j = LEN(final_dgt$) TO 1 STEP -1
166.                     temp$ = temp$ + MID$(final_dgt$, j, 1)
167.                 NEXT
168.                 final_dgt$ = temp$
169.             END IF
170.         END IF
171.         final_sum$ = final_sum$ + final_dgt$
172.     NEXT
173.     FOR i = LEN(final_sum$) TO 1 STEP -1
174.         mult$ = mult$ + MID$(final_sum$, i, 1)
175.     NEXT
176.     $CHECKING:ON
177. END FUNCTION
178.  
179. FUNCTION mult_single_dgt$ (n$, d$)
180.     $CHECKING:OFF
181.     IF d$ = "0" THEN mult_single_dgt$ = "0": EXIT FUNCTION
182.     IF d$ = "1" THEN mult_single_dgt$ = n$: EXIT FUNCTION
183.     IF n$ = "1" THEN mult_single_dgt$ = d$: EXIT FUNCTION
184.     FOR j = LEN(n$) TO 1 STEP -1
185.         dgt_1$1 = MID$(n$, j, 1)
186.         r = (VAL(dgt_1$1) * VAL(d$)) + carry
187.         ' ? r
188.         IF j > 1 THEN
189.             FOR k = 90 TO 0 STEP -10
190.                 IF r >= k THEN carry = k * 0.1: final$ = _TRIM$(STR$(r - k)): EXIT FOR
191.             NEXT
192.         ELSE
193.             final$ = _TRIM$(STR$(r))
194.             IF LEN(n$) > 1 THEN
195.                 tmp$ = ""
196.                 FOR k = LEN(final$) TO 1 STEP -1
197.                     tmp$ = tmp$ + MID$(final$, k, 1)
198.                 NEXT
199.                 final$ = tmp$
200.             END IF
201.         END IF
202.         product$ = product$ + final$
203.     NEXT
204.     IF LEN(n$) > 1 THEN
205.         FOR j = LEN(product$) TO 1 STEP -1
206.             mult_single_dgt$ = mult_single_dgt$ + MID$(product$, j, 1)
207.         NEXT
208.     ELSE mult_single_dgt$ = product$
209.     END IF
210.     $CHECKING:ON
211. END FUNCTION
212.  

Text Only | Text with Attachments