Add original unix v6

2018-01-27 22:35:41 +09:00
commit 2c7099ee50
664 changed files with 106254 additions and 0 deletions
@@ -0,0 +1,33 @@
+rin()
+{
+	double d;
+	register n, c, f;
+
+	d = 0.;
+	f = 0;
+	n = 0;
+loop:
+	c = getchar();
+	if(c == '\0')
+		exit();
+	if(c == '-') {
+		f++;
+		goto loop;
+	}
+	if(c == '.') {
+		n++;
+		goto loop;
+	}
+	if(c>='0' && c<='9') {
+		if(n)
+			n++;
+		d = d*10.+c-'0';
+		goto loop;
+	}
+	if(f)
+		d = -d;
+	for(f=1; f<n; f++)
+		d =/ 10.;
+	n = d;
+	return(n);
+}