fork download
copy 
  1. f <- file("stdin")
  2. open(f)
  3.  
  4. while(length(n <- as.integer(readLines(f,n=1))) > 0) {
  5. 	if (n == 42) {
  6. 		break;
  7. 	}
  8. 	write(n, stdout())
  9. }
Success #stdin #stdout 0.2s 183680KB
comments (?)
stdin
copy 
1
2
88
42
99
stdout
copy 
1
2
88
https://ideone.com/K4Joan
language:
R (R 3.5.2)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!