Hi All. The following is a simple but demonstrative example of the Schwartzian Transform written in Java. It should compile and run with the latest version of Perl Idioms for Java. Enjoy!

import java.util.ArrayList;
import java.util.Comparator;
import java.util.List;

import perlforjava.control.Looper;
import perlforjava.functions.Arrays;
import perlforjava.functions.Mapper;
import perlforjava.lang.Block;

public class TheSchwartz {

    public static void main(String[] args) {

        // Create a new List of values to sort
        ArrayList in = new ArrayList();
        in.add("foobarbazquux");    
        in.add("foo");
        in.add("foobarbaz");
        in.add("foobar");

        /* Sort based upon length of string by mapping each string to
           a List where the first element is the string and the second
+ is
           its length. Sort on the latter and return a new List of str
+ings. */

        List out = Mapper.map(new Block() { 
              protected Object process(Object elem) {
                return ((List)elem).get(0);
              } // pull the first element from each List and return it
            }, Arrays.sort(new Comparator() {
                  public int compare(Object a, Object b) {
                    return ((Integer)((List)a).get(1)).
                      compareTo(((Integer)((List)b).get(1)));
                 } // run the comparison of Integer values to determin
+e order
               }, Mapper.map(new Block() {
                     protected Object process(Object elem) {
                       ArrayList temp = new ArrayList();
                       temp.add(elem);
                       temp.add(new Integer(((String)elem).length()));
                       return temp;
                     } // map each string into an ArrayList of string 
+=> length
                   }, in) // end second map
                          ) // end sort
                            ); // end first map

        // Loop over the results to view them
        Looper.foreach(out, new Block() { 
            protected Object process(Object elem) {
              System.out.println("ELEM " + elem.toString());
              return null;
            }
        }
                       ); // end foreach
    }
}
[download]

The equivalent Perl code is rather more brief, demonstrating the claim all programs will eventually be reduced to Perl one-liners :^p Update: added parentheses, though not required, to better see the similarities between implementations₁.

use strict;
use warnings;

my @in = qw/foobarbazquux foo foobarbaz foobar/;

my @out = map( { $_->[0] } 
              sort( { $a->[1] <=> $b->[1] }  
                   map( { [$_, length($_)] } @in )
                  )
             );

foreach (@out) {
    print "$_\n";
}
[download]

To be fair however, the verbosity of the Java code is a requirement of (at least) its strong typing which necessitates all that casting, and the prohibition against method overloading on the basis of method return value. Sloppier import statements can also reduce the line count but I've opted for clarity. And of course the biggest reason is the lack of user defined blocks except through anonymous inner classes.

1. The original perl code was: my @out = map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [$_, length($_)] } @in;

---

"The dead do not recognize context" -- Kai, Lexx

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.