fork download
copy 
  1. x <-  c("10 GBP", "1.2 GBP", "6 GBP", "108.88 EUR", "147 EUR | 39927: 86.9 EUR | 39928: 49.35 EUR")
  2. amounts <- lapply(x, function(m) sum(scan(text=gsub("\\s*(?:\\d+:|[A-Z]+)\\s*", "", m), sep="|", what = numeric(), quiet=TRUE)))
  3. currency <- sub(".*?\\b([A-Z]{3})\\b.*", "\\1", x)
  4. paste(amounts, currency, sep=" ")
Success #stdin #stdout 0.25s 38932KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "10 GBP"     "1.2 GBP"    "6 GBP"      "108.88 EUR" "283.25 EUR"
https://ideone.com/WgvIeP
language:
R (R 3.5.2)
created:
6 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!