fork download
copy 
  1. !Alex Kukha apr 2021 answer #224610924
  2. character(80) :: string = "Whatttt's up doc?"
  3. lng=len_trim(string)
  4. forall (i=1:lng) string(i:i) = string(lng-i+1:lng-i+1)
  5. do i=1,lng
  6.   if (string(i:i)==' '.and.i<lng) then
  7.     if (string(i+1:i+1)/=' ') print *
  8.     cycle
  9.    endif
  10.    write(*, "(a1)", advance='no') string(i:i)
  11. enddo
  12. end
Success #stdin #stdout 0s 5664KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
?cod
pu
s'ttttahW
https://ideone.com/BUSB2T
language:
Fortran (gfortran 8.3)
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!