fork download
copy 
  1. stockfish_response <- c("Final evaluation +0.30 (white side) [with scaled NNUE, hybrid, ...]","blah")
  2.  
  3. regmatches(stockfish_response, regexpr("Final evaluation.+?\\(white side\\)", stockfish_response))
  4.  
  5. library(stringr)
  6. final_evaluation <- str_extract(stockfish_response, 'Final evaluation.+?\\(white side\\)')
  7. final_evaluation <- final_evaluation[!is.na(final_evaluation)]
  8. final_evaluation
  9.  
Success #stdin #stdout 0.28s 42216KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "Final evaluation +0.30 (white side)"
[1] "Final evaluation +0.30 (white side)"
https://ideone.com/Leinv2
language:
R (R 3.5.2)
created:
3 years ago
visibility:
secret

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!