Ticket #9738: genus2reduction.c.diff

File genus2reduction.c.diff, 763 bytes (added by mpatel, 3 years ago)

Quit on quit. Diff of genus2reduction.c from g2r 0.3.p6.

  • genus2reduction.c

    old new  
    1515 
    1616*/ 
    1717 
     18#include <string.h> 
     19 
    1820#include "pari.h" 
    1921 
    2022#ifdef LONG_IS_64BIT 
    … … main() 
    9395 labinf: 
    9496  printf("   \n");fflush(stdout); 
    9597  printf("enter Q(x) : ");fflush(stdout);fflush(stdin); 
    96   scanf("%s",buf);q=lisexpr(buf); 
     98  scanf("%s",buf); 
     99  if (!strcmp(buf, "quit")) 
     100    { 
     101      exit(0); 
     102    } 
     103  q=lisexpr(buf); 
    97104  printf("enter P(x) : ");fflush(stdout);fflush(stdin); 
    98   scanf("%s",buf);p=lisexpr(buf); 
     105  scanf("%s",buf); 
     106  if (!strcmp(buf, "quit")) 
     107    { 
     108      exit(0); 
     109    } 
     110  p=lisexpr(buf); 
    99111  printf(" \n");fflush(stdout); 
    100112  polr=gadd(gmul(q,q),gmul2n(p,2));  
    101113  if(gcmp0(polr)) exit(0);