fork(28) download
  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
stdin
+++++++++++++++++++++++++++++++++.
stdout
!