aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Time for an 2014 update…

Browse source
This commit is contained in:
Ingy döt Net 2014-01-17 05:32:22 +00:00
parent 372c577f83
commit 09687c4926
2520 changed files with 34227 additions and 7318 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Search-a-list/Common-Lisp/search-a-list.lisp → Task/Search-a-list/Common-Lisp/search-a-list-1.lisp
View file

8
Task/Search-a-list/Common-Lisp/search-a-list-2.lisp Normal file
View file

@ -0,0 +1,8 @@
CL-USER> (defparameter *list* '(Zig Zag Wally Ronald Bush Krusty Charlie Bush Bozo))
*LIST*
CL-USER> (position 'Bush *list*)
4
CL-USER> (position 'Bush *list* :from-end t)
7
CL-USER> (position 'Washington *list*)
NIL

13
Task/Search-a-list/Julia/search-a-list.julia Normal file
View file

@ -0,0 +1,13 @@
julia> findfirst(x -> x=="yes", {"no","?","yes","maybe","yes"})
3
julia> indexin({"yes"},{"no","?","yes","maybe","yes"})
1-element Array{Int64,1}:
5
julia> findin({"no","?","yes","maybe","yes"},{"yes"})
2-element Array{Int64,1}:
3
5
julia> find(x -> x=="yes", {"no","?","yes","maybe","yes"})
2-element Array{Int64,1}:
3
5