Friday Programming Quiz

Miszou

@echo off set /a count=1 :: Load all the numbers :loop echo %1 > _%count%.var set /a count=count+1 shift if "%1" == "" goto :startSort goto loop :startSort set /a total=count-1 :RestartSort set /a count=1 :sortLoop set /a next=%count%+1 call :swap %count% %next% set /a count=count+1 if "%swapped%" == "true" goto :RestartSort if "%count%" == "%total%" goto :output goto :sortLoop :swap set /P var1="" < _%1.var set /P var2="" < _%2.var if /I %var1% LEQ %var2% goto noSwap ren _%1.var _temp.var ren _%2.var _%1.var ren _temp.var _%2.var set swapped=true goto :eof :noSwap set swapped= goto :eof :output set /A offset=((%total%-5)/2)+1 set /A limit=%offset%+4 for /L %%i in (%offset%,1,%limit%) do call :showval %%i :cleanup erase *.var set next= set offset= set total= set count= set var= set var1= set var2= goto :eof

Sunrise Wallpaper Project | The StartPage Randomizer | A Random Web Page

Tomas Petricek

I think part of the scariness is the VB syntax for queries. VB queries contain almost anything you may ever need (I was quite suprised when I tried it :-)). That's the VB style of doing things - it makes programming easier, but you can easily write really ugly and inefficient code. The C# queries are slightly better (they don't direcly support 'Skip' and 'Take'), but in general the simplicity still hides a lot from what is actually going on. I think that when the same thing is written using the new language features (general purpose features, so no queries!), it doesn't look that scary. It will be a bit longer though (I'm switching back to C#, since I'm not sure how VB does anonymous functions - though I expect that it will be uglier than in C#):

// It would look roughly like this..
args.Select(a => Int32.Parse(a).SortBy(a => a).Skip((args.Length - 5) / 2).Take(5)

Using this syntax it is much easier to see what the code actually does - It's sill not perfect, but it's probably the best that can be done in C#/VB-like language. In functional languages (e.g. in my favorite F# for .NET) solutions like this are more natural (once you learn the language basics), because supporting code like this was the goal of the language design from the beginning.

Homepage: TomasP.net | Photo of the month: Calendar | C# and LINQ, F#, Phalanger: My Blog
Latest article: Phalanger, PHP for .NET: Introduction for .NET developers

Gary R Wheeler

Hot damn, somebody who likes to do perverted things with batch files as much as I do! :cool: :-D

Software Zen: delete this;

Fold With Us![^]

Michael Dunn

print join "\n", @{[sort {$a <=> $b} @ARGV]}[$#ARGV/2-2 .. $#ARGV/2+2];

--Mike-- Visual C++ MVP :cool: LINKS~! Ericahist | PimpFish | CP SearchBar v3.0 | C++ Forum FAQ Hungarian notation FTW

leppie

And the GWBASIC one? ;P

**

xacc.ide-0.2.0.77 - now with C# 3.5 support and Navigation Bar!^
New xacc.ide release RSS feed^

**

PIEBALDconsult

Wearing your black waders I hope.

PIEBALDconsult

Care to enlighten us as to why you've had to do that?

Rama Krishna Vavilala

After completing a LINQ book (which I was reviewing), I found out that LINQ in VB has more features than in C# (query expression wise). I was thinking about a simple example that can be used to demo LINQ in VB and that was it.

Co-Author ASP.NET AJAX in Action

PIEBALDconsult

Yeah, but that's still in beta, right? :-D

Clickok

PIEBALDconsult wrote:

Yeah, but that's still in beta, right? :-D

VB9 = Visual Beta 9 X|:-D

For God so loved the world, that he gave his only begotten Son, that whosoever believeth in him should not perish, but have everlasting life.(John 3:16) :badger:

PIEBALDconsult

Not Vaporware Beta? :-D As VB is just a "prototyping language", it makes sense to use it as a test bed for Linq, before putting the final implementation in C#.

Brady Kelly

VB is the next MS dynamic language.

WillemM

Linq rules :D

WM. What about weapons of mass-construction? "What? Its an Apple MacBook Pro. They are sexy!" - Paul Watson My blog

Eytukan

vector<int> vec_num;
for(int i=1;i<argc;i++){
 vec_num.push_back(atoi((char*)argv[i]));
}
sort(vec_num.begin(),vec_num.end());
copy(vec_num.begin()+((vec_num.size()-5)/2),
vec_num.end()-((vec_num.size()-5)/2), ostream_iterator<int>(cout, "\n"));

The Advantage in work-from-home is that... we can blame the dog -Mark Salsbery Best wishes to Rexx[^]

Vasudevan Deepak Kumar

It is really amazing to see a charming quick cut batch file doing that marvellously. :)

Vasudevan Deepak Kumar Personal Homepage Tech Gossips

Vasudevan Deepak Kumar

leppie wrote:

GWBASIC

Is it available for download somewhere? I got a copy of QBasic anyway from here: http://www.uv.tietgen.dk/staff/mlha/Download/DOS/microsoft/qbasic.exe[^]

Vasudevan Deepak Kumar Personal Homepage Tech Gossips

Stuart Dootson

Haskell

module Main where

import Data.List
import System

main = do nums <- fmap (map (read :: String -> Integer)) getArgs
          (print.take 5.drop (((length nums)-5) `div` 2).sort) nums

Rama Krishna Vavilala

5 for using the ostream_iterator alone:)

Co-Author ASP.NET AJAX in Action

Eytukan

Anyway, a 5 is a 5 ;P. Btw I think I should learn a new language to reply to your Friday Question. Replies representing all other languages are just there in seconds you post your question.we can't make our replies unique unless I try for a deliberately different technique of the same language.:-D

The Advantage in work-from-home is that... we can blame the dog -Mark Salsbery Best wishes to Rexx[^]

PIEBALDconsult

Here's some C#.

System.Collections.Generic.List<int> list = new System.Collections.Generic.List<int>
(
System.Array.ConvertAll<string,int>
(
args
,
delegate ( string s ) { return ( (int) System.Convert.ChangeType ( s , typeof(int) ) ) ; }
)
) ;

list.Sort() ;

foreach
(
int i
in
list.GetRange
(
args.Length/2-2
,
5
)
)
{
System.Console.WriteLine ( i ) ;
}

This points up two shortcomings of the current (V2) implementation of .net: 1) System.Array doesn't have a GetRange() method 2) Sort() returns void -- returning a reference to the object would be more flexible If these shortcomings were corrected, the above code could be:

foreach
(
int i
in
System.Array.ConvertAll<string,int>
(
args
,
delegate ( string s ) { return ( (int) System.Convert.ChangeType ( s , typeof(int) ) ) ; }
).Sort().GetRange
(
args.Length/2-2
,
5
)
)
{
System.Console.WriteLine ( i ) ;
}

-- modified at 16:33 Saturday 1st September, 2007 Whoops, forgot to protect the angle-brackets -- modified at 16:34 Saturday 1st September, 2007 And then of course I put them backward