fork(1) download
copy 
  1. con=file("stdin", open="r")
  2. repeat {
  3. line=readLines(con,1)
  4. if (length(line)==0) break
  5. w=strsplit(line," ")[[1]]
  6. if (w[2]=="==") {write(ifelse(identical(w[1],w[3]),1,0),""); next}
  7. if (w[2]=="!=") {write(ifelse(identical(w[1],w[3]),0,1),""); next}
  8. if (w[2]=="<=") {
  9. if (identical(w[1],w[3])) write(1,"") else if (nchar(w[1])<nchar(w[3])) write(1,"") else if (nchar(w[1])>nchar(w[3])) write(0,"") else for (i in 1:nchar(w[1])) {
  10. 	if (as.integer(substr(w[1],i,1))<as.integer(substr(w[3],i,1))) {write(1,""); break}
  11. 	if (as.integer(substr(w[1],i,1))>as.integer(substr(w[3],i,1))) {write(0,""); break}}
  12. next}
  13. if (w[2]==">=") {
  14. if (identical(w[1],w[3])) write(1,"") else if (nchar(w[1])<nchar(w[3])) write(0,"") else if (nchar(w[1])>nchar(w[3])) write(1,"") else for (i in 1:nchar(w[1])) {
  15. 	if (as.integer(substr(w[1],i,1))<as.integer(substr(w[3],i,1))) {write(0,""); break}
  16. 	if (as.integer(substr(w[1],i,1))>as.integer(substr(w[3],i,1))) {write(1,""); break}}
  17. next}
  18. }
  19.  
Success #stdin #stdout #stderr 0.21s 175424KB
comments (?)
stdin
copy 
1000 == 200
200 <= 1000
200 >= 1000
stdout
copy 
0
1
0
stderr
copy 
Warning message:
In readLines(con, 1) : incomplete final line found on 'stdin'
https://ideone.com/69lcko
language:
R (R 3.5.2)
created:
6 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!