summaryrefslogtreecommitdiff
path: root/frontends/calculator/CEdev/examples/fileio_factorize/src
diff options
context:
space:
mode:
authorAndrew Opalach <andrew@akon.city> 2019-04-24 11:03:58 -0400
committerAndrew Opalach <andrew@akon.city> 2019-04-24 11:03:58 -0400
commit4d9d7b5600ab615d68f671df5f8bc6c9fe4a5a09 (patch)
treefe63c3525b2e14f12b4492f87d3e875c4dcec0e4 /frontends/calculator/CEdev/examples/fileio_factorize/src
parent6152e965868f3e010c79d91ce3da0036758fda4d (diff)
downloadcetris-4d9d7b5600ab615d68f671df5f8bc6c9fe4a5a09.tar.gz
cetris-4d9d7b5600ab615d68f671df5f8bc6c9fe4a5a09.tar.bz2
cetris-4d9d7b5600ab615d68f671df5f8bc6c9fe4a5a09.zip
add pause to curses, remove unfinished calculator frontend
Diffstat (limited to 'frontends/calculator/CEdev/examples/fileio_factorize/src')
-rw-r--r--frontends/calculator/CEdev/examples/fileio_factorize/src/main.c75
1 files changed, 0 insertions, 75 deletions
diff --git a/frontends/calculator/CEdev/examples/fileio_factorize/src/main.c b/frontends/calculator/CEdev/examples/fileio_factorize/src/main.c
deleted file mode 100644
index c95bb46..0000000
--- a/frontends/calculator/CEdev/examples/fileio_factorize/src/main.c
+++ /dev/null
@@ -1,75 +0,0 @@
-#include <stdbool.h>
-#include <stddef.h>
-#include <stdint.h>
-#include <tice.h>
-
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#include <fileioc.h>
-
-void prime_factors(unsigned int n);
-
-int primes[512];
-unsigned int total_primes = 0;
-
-/* Main Function */
-void main(void) {
- /* Declare some variables */
- real_t *real_in;
- list_t *list_out;
- unsigned i;
- int in;
-
- /* Clear the homescreen */
- os_ClrHome();
-
- /* Get the answer variable */
- if (ti_RclVar(TI_REAL_TYPE, ti_Ans, &real_in)) return;
- if ((in = os_RealToInt24(real_in)) < 1) return;
-
- /* Get the prime factors of the input */
- prime_factors((unsigned)in);
-
- /* Create a list to store the primes */
- if (!total_primes) return;
- list_out = ti_MallocList(total_primes); // Same as ti_AllocList(total_primes, malloc)
-
- /* Write out the list of primes */
- for (i=0; i<total_primes; i++) {
- list_out->items[i] = os_Int24ToReal(primes[i]);
- }
-
- /* Set the new answer */
- ti_SetVar(TI_REAL_LIST_TYPE, ti_Ans, list_out);
-}
-
-/* Store to an array all the prime numbers */
-void prime_factors(unsigned int n) {
- unsigned int div, end;
-
- while (!(n % 2)) {
- primes[total_primes++] = 2;
- n /= 2;
- }
-
- if (n == 1) return;
-
- div = 3;
- end = sqrt(n);
-
- while (div <= end) {
- if (!(n % div)) {
- do {
- primes[total_primes++] = div;
- n /= div;
- } while (!(n % div));
- if (n == 1) return;
- end = sqrt(n);
- }
- div += 2;
- }
-
- primes[total_primes++] = n;
-}