[svn:parrot] r46074 - trunk/examples/shootout

[mikehh at svn.parrot.org]

Author: mikehh
Date: Tue Apr 27 19:34:13 2010
New Revision: 46074
URL: https://trac.parrot.org/parrot/changeset/46074

Log:
replace in-place string ops

Modified:
   trunk/examples/shootout/knucleotide.pir

Modified: trunk/examples/shootout/knucleotide.pir
==============================================================================
--- trunk/examples/shootout/knucleotide.pir	Tue Apr 27 19:19:13 2010	(r46073)
+++ trunk/examples/shootout/knucleotide.pir	Tue Apr 27 19:34:13 2010	(r46074)
@@ -1,4 +1,4 @@
-# Copyright (C) 2005-2009, Parrot Foundation.
+# Copyright (C) 2005-2010, Parrot Foundation.
 # $Id$
 
 .sub main :main
@@ -13,7 +13,7 @@
 	line = ''
 	.local string seq
 beginwhile_2:
-	chopn line, 1
+	line = chopn line, 1
 	seq .= line
 	line = readline stdin
 	$I0 = length line
@@ -21,7 +21,7 @@
 	$S0 = chopn line, -1
 	if $S0 != ">" goto beginwhile_2
 endwhile_2:
-	upcase seq
+	seq = upcase seq
 	sort_seq(seq, 1)
 	sort_seq(seq, 2)
 	find_seq(seq, "GGT")