fork(41) download
copy 
  1. var
  2.  data_arr:array[1..10] of integer;    
  3.  str_arr: string;                     
  4.  i, j: integer;                       
  5. begin
  6.  j:=1;                  
  7.  readln(str_arr);      
  8.  
  9.  for i:=1 to length(str_arr) do begin    
  10.   if (str_arr[i]='+') then data_arr[j]:= data_arr[j]+1;
  11.   if (str_arr[i]='.') then write(chr(data_arr[j]));
  12.  end;
  13. end.
Success #stdin #stdout 0s 9128KB
comments (?)
stdin
copy 
+++++++++++++++++++++++++++++++++.
stdout
copy 
!
https://ideone.com/5UE5yu
language:
Pascal (gpc 20070904)
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!